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i¢} 17 External and local symbol definitions 

(5) 4 ptenderd. ¢ ables 

9) 1 RTT ORITE - function Be ts ton va 1 anys for WRITE Functions 
(7) 4 RTT-READ = Function Dec sion Routine for “it Functions 
(8) $1 at qreee ITMLST = FDT routine for read with item List 

(9) 50 ETRODE » Function Dec iston Routine SETMODE/SETCHAR 
(10) 949 RaoRye Transfer to EXESABORTIO 

(10) 965 GET PARAMS - Get set mode parameters 

(11) 991 RIT. =pHARSIZE Size of charoctertsttes buffer 

(11): 1009 Validate Latest eco number 

(12) 1029 RIT aa RS MODE. pyreecee Decision Routine for SENSEMODE/SENSECHAR 
(13) 1107 ALLOC_MESS AGE. Allocate a message buffer 

(15) 1203 RTT rics T Interrupt handler 

(16) 1290 SEN NSE Say Sense for spawn 

(17) 1310 YERACEL Cancel 1/0 routine 

(18) 14311 RTT ~unsouté Unsolicited interrupt handler 

(33) 1336 RTT_HANGUP = Perform hangup functions 

(23) 159 RTT_ABORTIRPS = Abort irps outstanding 

(24) 1700 RTT_NETMSGSEND = Send message to net driver 

($6) 1783 RTT_CLEANUP = Hangup terminal 

(27) 1801 RTT_STARTNETRCV = Start receive to net driver 

(28) 1832 RTT_NETREADDONE = Post routine for net receive 

¢9) 1922 RTT-NETWRTDONE = Post routine for net write 

(30) 1942 RTT_CANIRPS = Cancel irps 

(31) 1999 at -MAKEIIRP = Manufacture an internal irp 

(32) 2047 T-END, End of driver 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
so 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. ° 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ° 
® 

® 

* 

* 

® 

* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
2 
2 
i 
2 
2 
$0 : FACILITY: 
3 VAX/VMS Remote Terminal Driver 
3 ; ABSTRACT: 
0000 3 
0000 3 This module contains the remote terminal driver routines. This driver 
0000 3 is used by the application process side of the operation. In other 
0000 words, it receives the Q10 requests from the process that does not 
44 have local access to the terminal. 
0000 4 This driver's primary function is to receive Q10 system service 
0000 & requests, repackage the Q10 arguments, and hand the new package to 
0000 4 the tranport mechanism for delivery to the remote terminal 
0000 4 handler process on the systen with local access to the terminal. 
4h 4 The transport mechanism is DECnet. Netdriver is called directly 
360 45 via the internal IRP mechanism, 
itd a7 s ; AUTHOR: 
000 4 
4 $3 3 Len Kawell, 01-AUG-1979 
4 51 ; MODIFICATION HISTORY: 
0000 v03-014 JLV0390 Jake - 25-JUL-1984 
0900 Return ILLIOFUNC for He when PICSTRING is seen, 
000 v03-0135 LMPO275— L. Mark Pilant, 12-Jul-1984 12:42 
0000 Initialize the ACL info in the ORB to be a null descriptor 
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Uist rather than an empty queue. This avoids the overhead 
of eet and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


v03-012 EMD0088 Ellen M. Dusseault 30-Apr-1984 
Add DEVS$M_NNM characteristic ,to DEVCHAR2 so Chat these 
devices will have the ‘‘node$"’ prefix. 


v03-011 LMP0221 Pilan 27-Mar-1984 11:53 
Change UCBSL “ownuic to KORBSE POUNER and UCB$W_VPROT to 
ORBSW_PROT. 

v03-010 _ v0320 18-DEC-1983 


Remoe SS$ INCOMPAT  thansy po fdt routine. This error 
is preventing set host from RSX and TOPS20. 

Change write routine to send broadcast ixee.8 age 

if IOSM_BREAKTHRU is seen. Remove RTT ADCAST routine 


as it i§ obsolete. Redo SET_MODE FDT t use case statement. 


Clear io$m_extend bit in read routine. Remove CTRLC 
and outband from SENSE_SPAWN. 


v03-009 JLV0299 Jake Van ~ | a 30-JUL-1983 
Add DEVSM_RTT to DPT _STORE's 

v03-008 JLV0252 Jake No 13-MAY-1983 
Remove references to 10m. — ALT and IOSM_DSABL_ALT. 


v03-007 JLV0241 Noy 
Change ASSUME Bevan Rong TRM$_LASTITM. 


v03-006 JLV0239 Jake VanNoy 29-MAR-1983 
dd code to do new itemlist, remove V3.2 code to 
handle read verify. 


V03-005 JLV0227 Jake VanN 9-F EB-1983 
Bug fix in error path on A LOC_MESSAGE that caused 
1 crash. Another bug fix to the read fdt routine 
at crashed . with Large prompt size. 


20-APR-1983 


v03-004 JLV0215 Noy 6-0CT-1982 
Mods to SBL3007 2 ¢ by caraneter checking correctly. 
v03-003 Se. 3007 Steve Long 6-Au 


ead verify support and permit 10$M Puna ALT & 
TOaa. DSABL_ALT to be processed in SETMOD 


v03-002 p03007 Darrell buf ty 5-April-1982 
Trap IOSM_ESCAPE og IOSM_EXTEND with reads to V2 systems. 
Trap IOSM_ENABL_ALT IOSM_BSABL_ALT in SETMODE. 


v03-001 py05006 Darrell Duffy 31-March-1982 
Fix SENSEMODE TYPAHDCNT to return correct status. 
Insert setting of mode bits for fixing spawn. 


v02-016 p 405005 Darrell Duffy 13-January-1982 
Fix flushing of CTRL/Y to occur at deassign. 


Use new cancel interface to distinguish cancel and deassign. 


Page 
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v02-015 0JD3004 Darrell Duffy 20-December-1981 


Revert to use of attn ast processing for CTRL C and Y. 
Remove privileges associated with declaring a ctrl/y ast. 


v02-014 0J03003 Darrell Duffy 24-November-1981 
Add out-of-band ast puppet Fix bug in delivery 
of hangup a when the Link has broken before it 
ed. 


was ena 

v02-013 DJD3002 Darrell Duffy 12-November-1981 
More of the same. 

V02-012 DJD3001 Darrell Duffy 21-October-1981 
Update for changes to terminal driver for v3.0 

V02-011 DJD2004 Darrell Duffy 31-July-1981 
Change broadcast interface to return failure on 
terminal set for NOBROADCAST 

v02-010 DJ02003 Darrell Duffy 2-May-1981 
Fix double deallocate of rtt ucb. 

V02-009 RLRLBCNT Robert L. Rappaport 8-April-1981 
Changes associated with IRP modifications to all BCNT 
fields which have grown to longwords. Also fix old bug 
in RTT_WRITE which sometimes left garbage in R1. 

v02-008 DJD2002 Darrell Duffy 8=-Apr-1981 
Fix race condition with broadcast messages after hangup. 

v02-007 DJ02001 Darrell Duffy 5-Mar-1981 


Change to call network driver directly to read and 
write packets. 


v02-006 LMK0006 Len Kawell 27-Feb-1981 
Fix problem with immediate delivery of hangup AST when 
AST is being cancelled. 


GOOCCOOCOSSOSOSCOOSOSSOSOCSCOSCOSCOOCOCOSOOOOOOOOOOOOOOOOOOO 


1.05 LMK0005 Len Kawell 18-Mar-1980 
Change broadcast to call EXESALONONPAGED. 

1.04 LMK0004 Len Kawell 29-F eb-1980 
Change adapter type in DPTAB to be NULL. 

1.03 LMk0003 Len Kawell 25-Feb-1980 


Change broadcast to not wait for completion to avoid 
caus ng issuing process to indefinitely wait if delays 
occur during remote delivery. 


SOoOSoSCSCOCSSOSSOOOSCSSOOCOOSSSOSOOSOSOSOSOOSOSOSOSOSOSOOOSOOOOOOOOOOOOOSooOO 


LMK0002 Len Kawell 21-Jan-1980 
Add UCBSM_HANGUP flag so hangup is never lost. 
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External and local symbol definitions SEP=-19 


608 179 -SBTTL External and local symbol definitions 
Be 
173 ; External symbols 
Bowne 
$8 128 SACBDEF 3; AST control block 
00 17 SAQBDEF ; ACP queue block 
000 178 SCANDEF : Cancel interface codes 
00 17 SCRBDEF 3; Channel request block 
00 180 SDCDEF i Device classes and types 
000 181 SDDBDEF ; Device data block 
00 1 ¢ SDEVDEF 3; Device characteristics 
000 + SDYNDEF ; Buffer type codes 
000 184 SIDBDEF : Interrupt data block 
0000 185 SIODEF : 1/0 function codes 
0000 196 SIPLOEF ; Hardware IPL definitions 
0000 18 SIRPDEF : 1/0 request packet 
0000 «188 SJIBDEF :; Job Information block 
0000 189 SMSGDEF 3; Mailbox message types 
0000 190 SORBDEF ; OBJECT'S RIGHTS al CK OFFSETS 
0000 191 SPCBDEF 3; Process control block 
0000 136 PRDEF : Processor registers 
0000 19 SPRVDEF ; Privilege bits 
0000 194 $PSLD ; Processor status longword 
0000 195 SRBF DEF 3 Remote Device Buffer definitions 
0000 196 SROPDEF 3; Remote device packet 
0000 197 SREMDEF 3; General constants 
siti 198 SSSDE 3 System status codes 
000 199 STRMDEF : Item List definitions 
0000 200 STTDEF : Terminal definitions 
0000 sos STT2DEF : More definitions 
0000 8§ STTYDEF 3: Terminal driver definitions 
0000 0 SUCBDEF : Unit control block 
0000 04 $SVCBDEF : Volume control block 
; Interrupt vector bloc 
0000 05 SVECDEF Int t tor block 
$000 309 
3; Local symbols 
0000 08 ; Local bol 
0000 09 ; 
0000 311 
0000 \¢ 3; Argument List (AP) offsets for device-dependent Q10 parameters 
14° 
00000000 059 15 P1 = 0 :; First Q10 parameter 
0000004 000 16 Ps = 4 3; Second Q10 parameter 
0000008 op 17 P = 8 3; Third Q10 parameter 
000000C 0000 18 P4 = 12 ; Fourth Q10 parameter 
00000010 44 19 PS = 16 ; Fifth Q10 parameter 
00000014 44 $9 P6 = 20 : Sixth Q10 parameter 
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800 38a 
0 5 : Other constants 
BS 8 
00000008 09 8 RTTSK_FIPL = 8 ; IPL to synchronize 
0 0; 
4 1 : Definitions that follow the standard UCB fields 
000 : : 
B88 : SRTTUCBEXT 3; UCB Extensions 
OOOOO0DE 94 § UCBSW_RTT_READERR = UCBSW_CT_QCTPCNT 3; unused cterm UCB field 
0000 8 ; 
0000 39 ; Redefinitions of the irp fields 
8333S 
00000040 9000 4@ IRP$W_RTT_COMPAT = IRPSQ_TT_STATE ; Set for compatiblity error 


J 16 
= Remote Terminal Driver 1 


RTTORIVER -SEP-1984 AX/VMS Macro v04-00 Page 
v04- Standard tables -SEP=-1984 4 $8: 93: 38 DRIVER. SR Cir TTDRIVER.MAR; 1 ° (8) 
a9 ie -SBTTL Standard tables 
4 
3 $8 ; Driver prologue table 
50° 
0 51 DPTAB - 3; DPT-creation macro 
00 26 END=RTT_END,= : End of driver label 
00 5 ADAPTER=NULL ,=- 3; Adapter type 
000 54 UCBSIZE=< <UCBSK_RTT_ LEN>,=- ; Length of bts 
0 55 NAME=RTTDRIVER : Driver name 
0 2$ DPT_STORE INIT ; Start of load 
0 5 : initial ization table 
003 58 DPT_STORE DDB,DDBSL -ACPD 1. <*A\REM\> ; Default ACP name 
003F 59 DPT-STORE DDB. ODBSL— CPD+5, 3; ACP aes 
0043 60 DPT_STORE UCB. UCB$B_FIPL,B.RITSK_ FIPL ; Device fork IPL 
0047 61 DPT_STORE UCB,UCB$B_DIPL,B RTTSK-FIPL 3; Device interrupt IPL 
0048 66 DPT-STORE UCB,UCBSL L“DEVCHAR,L,<=" ; Device characteristics 
0048 6 DEVSM_REC!- ; record device 
0048 64 DEVSM_AVL!- ; available 
0048 65 DEVSM_IDV!- ; input device 
0048 66 DEVSM_ODV!- ; output device 
0048 267 DEVSM_TRM!- ; terminal device 
004 68 DEVSM_CCL> 3 carriage control device 
005 69 DPT_STORE UCB, “CBRL _DEVCHAR2,L,<- 3; Device characteristics 
005 70 DEVSM $ penete serainat UCB extension 
005 si DEVSM_ oA ; fern ix with ‘‘node$”’ 
005 ie DPT_STORE UCB, 7UCBSB _DEVCLASS,B,DC$_TERM ; Terminal — 
005D 27 DPT-STORE UCR. UCBSB_DEVTYPE ,8,1T$_ONKNO Unknown 
0061 74 DPT_STORE UCB,UCBSW W_DEV: vBuF Siz. aw, TTY$Gw_ DEFBUF : Sean t buffer size 
0068 75 DPT-STORE UCB,UCBSL— ope yDErEND @L,TTYSGL-DEFCHAR ; Default characteristics 
OO6F 76 DPT“STORE ORB,ORBSB_FLA Te “; Protection block flags 
OO6F 77 ZORBSM T_ 16> 3: SOGW protection word 
0073 78 DPT_STORE ORB,ORBS$W_PROT at oTrseu PROT ; Default allocation protection 
OO7A 9 DPT“STORE ORB. ORBSL-OWNER, aL, TTYSGC_ OWNUIC : Default owner UIt 
0081 81 DPT_STORE REINIT ; Start of reload 
bony S¢ : initialization table 
081 $s DPT_STORE DDB, poset _DDT,D,RTTSDDT ; Address of DOT 
0086 4 DPT~ = STORE CRB.CRBSL~IN Nba DL ; Address of interrupt 
ah HF RTT_ INTERRUPT 3: service routine 
00 87 DPT_STORE END : End of initialization 
4 3 3; tables 
0 
00 90 : 
00 91 : Driver dispatch table 
00 38 ; 
090 94 DDTAB. = :; DDT-creation macro 
0 95 DEVNAM=RTT,- 3 Name of device 
30 38 FUNCTB=RTT_FUNCTABLE,- 3; FOT address 
9 UNSOLIC=RTT_UNSOLIC,- ; Unsolicited attention routine 
0 : 38 CANCEL=RTT_CANCEL : Cancel 1/0 routine 
0; 
° Bf 3; Function dispatch table 
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RTT_FUNCTABLE: FDOT for driver 
FUNCTAB Valid 1/0 functions 


; Set device mode 
Set device characteristics 


0 <READVBLK ,=- Read virtual 
0 READLBLK,= Read logical 
0 READPBLK,- Read physical 
0 READPROMPT ,- Read with prompt 
8 TTYREADALL,=- Read passall 
TTYREADPALL ,= Read with prompt passall 
0 WRITEVBLK,= Write virtual 
0 WRITELBLK,=- Write logical 
0 WRITEPBLK,=- Write physical 
0 SENSEMODE ,- Sense device mode 
00 SENSECHAR,= Sense device characteristics 
003 SETMODE,=- Set device mode 
it SETCHAR> Set device characteristics 
040 FUNCTAB ,=- Buffered functions 
0040 <READVBLK,=- ; Read virtual 
0040 READLBLK,=- ; Read logical 
0040 READPBLK,- ; Read physical 
0040 READPROMPT,- : Read with prompt 
0040 TTYREADALL ,=- ; Read passall 
0040 TTYREADPALL ,- ; Read with prompt passall 
0040 WRITEVBLK,=- ; Write virtual 
0040 WRITELBLK,= ; Write logical 
0040 WRITEPBLK,- ; Write physical 
0040 SENSEMODE ,- ; Sense device mode : 
0040 SENS ; Sense device characteristics 
SETMO 
SETC 
RTT_R 
<RE 
RE 
RE 
RE 
TT 
T 


0048 ; FUNCTAB AD,- FDT read routine for 

004 3 KDVBLK,=- read virtual, 

004 ADLBLK,=- read logical 

004 ADPBLK,=- read physical, 

0048 ADPROMPT , = read with prompt 

0048 YREADALL ,- read passall, 

0048 TTYREADPALL> and read with prompt passall 

0054 FUNCTAB RTT_WRITE,- FDOT write routine for 

0054 <WRITEVBLK,=- write virtual, 

0054 WRITELBLK,=- write logical, 

0054 WRITEPBLK> and write physical. 

0060 FUNCTAB RTT SENSEMODE ,- FDT sense mode routine 
BRe8 <SERSECHAR,=- for sense characteristics 
06 SENSEMODE> and sense mode. | 

006C FUNCTAB RTT_SETMODE,- FDT set mode routine. 

006C <SETCHAR,= for set characteristics and 

SE TMODE> set mode. 
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ss -SBTTL RTT_WRITE = Function Decision Routine for WRITE Functions 
; RTT_WRITE = Function Decision Routine for WRITE Functions 

Functional description: 


This routine is called by the SYS$Q10 service to dispatch a WRITE 
1/0 request. 


£3 
zo 


The QI0 parameters for terminal WRITES are: 


address of the buffer 

size of the buffer 
(unused) 

carriage control specifier 


vw 
nhunnw 


The buffer is validated for access, the process's quota checked and 
decremented, the data and carriage control are copied to a message 
block, the address of the possess block is stored in the IRP, 

and the IRP is queued to the ACP for delivery to the remote system. 


; Inputs: 


RO-R2 = scratch registers 

R3 = address of the IRP (1/0 request packet) 

address of the PCB (process control block) 

address of the UCB (unit control block) 

address of the CCB (channel control block) 

bit number of the 1/0 function code 

R8 = address of the FDT table entry for this routine 
R9-R11 = scratch registers 

AP = address of the Ist function dependent Q10 parameter 


r 


; Outputs: 


IRPSL_SVAPTE ( 
IRPSW~BOF F (R3 
IRPSW~BCNT(R3 

p 


ibe routine preserves all registers except RO-R2, and 


3) = address of message buffer 
= size of mesenes buffer 
= 5s uffer 


; 
) ize of user 


3 RS 
2 WRITE FDT routine 

Get user buffer virtual address 
Set up for write check call 

Get buffer size 

Set up for write check call 
Skip check if zero 

Check buffer access 

(no return means no access) 


TT_WRITE: 
MOVL —P1CAP) RG 


MOVL R6,R 
MOVZWL Po(AP) .R7 
MOVL R77, R1 


@® 6900909 00 00 0d 09 0d Cd Cd GD 09 C0 OD Cd Cd Gd Cd C9 CD CD CD Cd CD 0D CD CD CO CO CD COCO COCO CDCDCOOCDCOCOCDODCDODCOD =6™ 


SNS NNN NNN 


10 
00000000 ' GF JSB G“*EXESWRITECHK 


; Allocate the message buffer 


10s: 
5 ADOL #RBFST_TT_WDATA,R1 


BSBW ALLOC_RMESSAGE 


SOOCOCOSSOSOSOSSOOSOCOO COC OCOC COCO COSCOSOOSOOSOOSOOCOOSOOOOCOOCOOOCOOOOOOOOCOOoOoOAaSDS OF 
SOOODOOOOOOO0 000 OOOO 0000 69 69 69 09 69 69 09 09 SII NINN NN SNP AA AAA AAA AMMO 
NAMB AR @ 9 ODONA UENO OD NAME WIN $$ O OO NAME WN 0 OONOA UE WWI SO OONOUS Win 


BELLS SF FAWN AAAAWAAAAAAAN AA WAAANAAAAWW AAA AA AAAAAANAAA 


SOSCCOSCOOOSSSOSSSOOCSOOSOSOOOSOSOSOOSOSSOSSSOOSOSOSOSOOSOOOOOSOOOOOOOOOOOOoOOoOO 


.©0000090000 00000000“ 
ovooc ToT onNVrnm 


: - 60 Add header to request size 
03€B Al 


locate the message buffer 
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9 408 3 
4 rh ; Copy the data and carriage control to the message 
18 A2  - 9 41] — MOVZWL R7,RBFSL_TT Bcyt (Re) : Set requested Bt count 
ee 9 aig PUSHR #*M<R2,R3,R% 3 Save registe 
54 20A C 0099 41 MOVZWL IRPS wW_FUNC(RS), Rs S save function code and modifiers 
5A C AC DO 9D 414 MOVL P4 (AP 3 save carriage control 
09 54 O09 €1 Boat a7 BBC #10Sv _BREAKTHRU, R4,20$ ; Branch if not breakthru 
boas 419 : Format message so that it Looks Like the old broadcast message. Note 
OO0A5 218 3; carriage control is cleared. This is a shortcoming 
Boag +33 : in this implementation, but this code will be obsolete shortly... 
OE A201 «=AE O0A5 = 421 * MNEGW #1,RBF SW OPCODE(R2) ; Set function code for broadcast 
10 A2 B4 OOA9 4 ; CLRW RBF $W_MOD(R : No modifier bits here 
SA D4 BRac $87 208 CLRL R10 3; set no carriage control 
20 A2 66 57 28 OOA $52 ; MOVC3 R7,(R6),RBFST_TT -WDATA(R2) 3; Copy dat 
51 53 00 008 426 MOVL R3_R1 ; ge ave adr cevend data 
3C 6©BA 600086 427 POPR #7<R2,R3,R4,R5> ; Restore the registers 
1C A2 SA DO Beee $58 MOVL R10,R FSi” TT * CARCON(R2) ; te carriage control 
apes 686 : Send the message to the remote device and exit Q10 service 
52 51 DO O0BC 432° MOVL R1,R2 3; Pointer beyond data in message 
40 AS B4 OOBF 433 CLRW RR P$W_RTT_COMPAT(R3) : No compatibility error 
0686 31 O00C2 434 BRW RTT_NETMSGSENDX ; 
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v06 RTT_READ = Function Decision Routine for g73EF=18 4 8 97:38 DRIVER. SRCIRTTDRIVER.MAR; 1 . (9) v04 
poe : § -SBTTL RTT_READ = Function Decision Routine for READ Functions 
Boe 438 5 ++ ; 
be sin ; RTT_READ = Function Decision Routine for READ Functions 
O9¢3 re} ; Functional description: 
00CS 443 ; This routine is called by the SYS$Q10 service to dispatch a READ 
0OCS 444 ; 1/0 request. 
00cS 3 445 ; 
Bote es ; The Q10 parameters for terminal READS are: 
Oo¢s 448 ; Pi = address of the buffer 
00¢ 449 ; P2 = size of the buffer : 
00CS5 450; PS = number of seconds to wait for characters | 
0o0cS) §=451 ; P4 = address of terminator class bitmask or 0 if standard 
90cs 12g 3 P5 = address of prompt string for IO$_READPROMPT or I0$_TTYREADPALL 
BOCs $37 3 P6 = size of prompt string for IOS_READPROMPT or IO$_TTYREADPALL 
0OCS 38455 ; The buffer is validated for access, the process's quota checked and 
00OCS 456; decremented, the timeout, terminator mask, and prompt are copied to a 
00CS 457 ; message block, the address of the message block is stored in the IRP, 
poee $38 $ and the IRP is queued to the ACP for delivery to the remote system. 
00c5S 460 ; Inputs: 
O0CS 461 ; 
00CS 462 ; RO-R2 = scratch registers 
00c5) = 463 ; R3 = address of the IRP (1/0 request packet) 
OOCS 464 ; R4 = address of the PCB (process control block) 
00c5S 465; R5 = address of the UCB (unit control block) 
Q00CS 466 ; R6 = address of the CCB (channel control block) 
00C5 467 ; R7 = bit number of the 1/0 function code 
0OCS 468 ; R8 = address of the FDT table entry for this routine 
Bote 469 ; R9-R11 = scratch registers 
Bore re $ AP = address of the Ist function dependent Q10 parameter 
00CS 472 ; Outputs: 
00cS) 473; 
OOCS 474 ; IRP$L_SVAPTE(R3) = address of message buffer 
00cS5 475 ; IRP$W_BOFF(R3) = size of message buffer 
00cS 476; IRPSL_MEDIA(R3) = address of user buffer 
Bate ri 44 3 IRP$W_BCNT(R3) = size of user buffer 
bore rt : The routine preserves all registers except RO-R2, and 
00CS 481; 
00C5S 482 ;-- 
00cS = 48 
boce eae ; Local storage offsets on stack: 
00000000 aocs 4 $ bufaddr = 0 
000 00C 487 bufsize = 4 
00000008 pce 488 prmaddr = 8 
sii f Oc 489 prmsize = 12 
000001 C 490 trmaddr = 16 
44's Se OC 491 trmsize = $? 
00000018 00C5 492 iniaddr = 24 
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0000001 0c 493 inisize = 28 
G90000¢6 3 494 timeout = $5 
0000024 ¢ rt inioffset = 36 
00000028 a8 637 read_local = 40 
ages 344 RTT_READ: ; READ FDT routine 
aocs 201 : Set up stack locals 
5E ¢8 C2 00c5 208 ‘ SUBL2 #READ_LOCAL,SP ; Allocate local storage 
58 pO gots 288 MOVL SP,R8” 3; Save pointer 
6 C 00cB 505 CLRO uth : clear buf *** 
08 AB 7C OOCD 506 CLRQ 8(RB) ; clear prm... 
10 AB =67C 8908 507 CLRQ 16(R8) ; clear trm... 
18 AB 7C OOD 508 CLRQ $3 (RS) : clear ini ... 
20 AB «C7 ait 20) CLRQ 2(R8) ; clear other ... 
d909 311 : Check access to user's buffer 
50 6C D0 00D9 218 : MOVL P1(AP) RO ; Get user buffer virtual address 
38 AS «6500S 0 s«OODc SC «514 MOVL RO, IRPSL MEDIA(R3) : Save address in packet 
51 04 AC 3C OOEO 515 MOVZWL 1h AP) RT : Get buffer size 
09 13 OOE4 ‘516 BEQL 10$ 3; Skip check if zero 
68 0 7D QOOE6 517 mMOVQ RO, BUF ADDR(R8) ; Set up for read check call 
00000000 ' GF 16 OOE9 518 JSB G*EXESREADCHK 3; Check buffer access 
Beer 237 3; (no return means no access) 
OOEF $f : Check for extended itemlist read 
OOEF 256 . 
OOEF 523 fos: 
OF ES OOEF 524 BBCC #10$V_EXTEND : If this is not item List 
06 20 A3 OOF 1 525 IRPSW SUNC (RS) 15$ 3 then continue 
OOA9 30 O0F4 258 BSBW RT_READ_I 3 process item List 
0059 31 OOF? 527 BRw 200$ : continue 
OOFA 528; 
OOFA 529 ; Get prompt, if specified 
OOFA 530; 
OOFA 531 158: 
37 57 91 OOFA 236 CMPB R7 ,#10$_READPROMPT ; Read preset? 
05 13 OOFD 2 BEQL ; Branch if yes 
380 5670S 91s OOFF Os 455.34 CMPB R7,#10$_TTYREADPALL ; Read proapt? 
14 12 #0102 £535 BNEQ : Branch if not 
51 14 AC 75 B18 238 208: MOVZWL P6(AP),R1 ; Get size of prompt 
ae 108 BEQL : If eql then make this normal read 
50 10 aC 00 Bie 235 MOVL PS(AP),RO ; Get prompt buffer address 
43 340 : Check access to prompt string 
08 AaB «65007 O10 248 . MOVG = RO, PRMADDR(R8) ; Save address and size 
00000000 ' GF 16 at ti JSB G*EXESWRITECHK ; Check prompt access 
ai $2 3 : Get terminator bitmask and check access 
O18 ‘3 bos: 
52 D4 Q11 CLRL R2 ; Assume no terminator specified 
51 OC AC DO OIA 4 MOVL P4(AP),R1 ; Get address of terminator desc 
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A 13 011 50 QL 65$ ; If eal none specified 
50 ee ae, 51 MOVZWL #SS$ Agcy {9.RO ; Assume no eccess 
1 26 IFNORD #8,(R1),63$ ; Descriptor accessible? 
52 61 «3c (01 5 MOVZWL (R1),R2 : Get bitmask size 
8 is 12C 54 NEQ 60$ 3 if neq long format 
52 4 D0 Q12E 55 MOVL #4,R2 ; Size of short format 
P) 4 CO Q151 228 ADDL #4,R1 ; Set address of bitmask 
14 11 «0134 «55 BRB 65§ : 
0136 558 60$: 
51 04 Al DO 0136 559 OVL 4(R1),R1 ; Get address of Long format bitmask 
013A 560 IFNORD R2,(R1),63$ : Bitmask accessib 
20 B1 pie8 20) MP R2, #32 ; Bitmask greater 4m allowed size? 
1B 014 6 BLEQU 65§ ; If gtru yes 
50 14 3¢ 0145 56 MOVZWL #SS$_BADPARAM,RO ; bad parameter 
11 0148 564 63$ BRB READ_E ROR 
014A 565 65$ 
10 A& 1 7D O146A 566 mMOVQ R1, TRMADDR (RB) ; terminator address and size 
20 AB 0B AC dO Bias 567 MOVL P3(AP), TIMEOUT (R8) ; Set timeout value 
Biay sep 208 
B138 259 3; Commom code again, Allocate the message buffer 
5B 04 AB 00 ota3 276 MOVL BUFSIZE(R8),R11 ; Set size of read 
32 AS)60=65B)—SsC«wBOSC0S7?~—S «57 MOVW R11, 1RP$W _BCNT(R3) ; Reset read buffer 
B18 Te: 3; (modified by EXESURITECHK) 
51 23 bdO 0158 576 MOVL #RBFST_TT iy R1 ; Set header + overhead size 
51 CAB CO O1SE 577 ADDL RMSIZE(RB), ; Prompt size 
51 14 AB CO 0162 578 ADDL TRASITE (RB). .+ : terminator size 
315 30 Bee a4 BSBwW ALLOC _MESSAGE ; Allocate the message buffer 
8188 BY ; Copy the timeout, terminator bitmask, and prompt string to the message 
18 A2. 5B DO 0169 oR MOVL R11,RBFSL_TT -BCNT(R2) ; Set requested byte count 
20 AB DO 016D 584 MOVL TIMEOUT 
1C Ae 0170 585 RBF SL it Tour ¢R2) ; Set timeout value 
3¢ Ss «BB bite ats PUSHR #*M<R2,R3,R4,R ; Save registers 
50 10 A8 7D 0174 £588 MOVQ Temeen Oe) " ; Set terminator addr and size 
20 A2 51 90 0178 589 MOVB R1,RBFST ERM(R2) ; Set terminator bitmask size 
21 a2 60 51 28 pict ay MOVC R1,(RO), RBFST TT_TERM+1(R2) ; Copy terminator bitmask 
50 08 As 7D 0181 236 mova < wt eas RO ; Set prompt addr and size 
» Oe | 80 185 23 MOV saa} ; Set size of prompt 
63 60 51 ; ; e3¢ MovC Rt. * (RO), (R3) : Copy prompt string 
51 53 DO O018C 596 MOVL R3,R1 ; Save adr beyond data 
3¢C =Cs«é&BA pier 44 POPR #*M<R2,R3,R4,R5> ; Restore registers 
8 535 ; Send the message the remote device and exit the Q10 service 
52 51 oDO 0191 601 MOVL ; Set address beyond data 
40 a3 B4 0194 60¢ CLRW PReSG RTT_COMPAT(R3) : No compatiblity error 
05E1 1 197 60 BRW RTT _NETMSGSENDX $ 
19A 604 : 
19A 6605 : Error in processing 
019A 606; 


= Remote Termina er 
RTT_READ = Function Decision Routine -~ 


607 READ —_— 
08 G*EXESABORTIO 


00:17:28 EDRIVER. gh 
; READ FDT error 
; Abort the I/0 request 
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14 g19 -SBTTL RT_READ_ITMLST = FDT routine for read with item List 
1A a 3 
1A 613 ; 
1A0 614 ; 
BIA 615 ; *** a clean up pass_is needed to here to verify that the paranoia 
1A0 616 ; checks made by TTDRIVER and this driver are the same. 
BAe 617 ; 
O1A 618 ;-- 
Q1A0 619 
| Q1A0 620 RT_READ_ITMLST: 
B18 621 
1A0 6 ¢ 3 
| BiA5 e Z ; Set up probe of itemlist with P3 as access mode 
56 «53)—(C«é O19 629 MOVL  R3,R6 : Save IRP 
50 O08 AC OQ2 O00 EF OIA 626 EXTZV #0,#2,P3(AP),RO : fetch low 2 bits of parameter 
| 00000000'GF 16 O1A9 627 JSB G°EXESMAXACMODE t maximize with mode of caller 
53 50 00 Brat 699 MOVL RO,R ; Set input to probe routine 
50 10 AC 00 0185 630 MOVL P5S(AP),RO ; Address of itemlist 
51 14 AC DO 0186 = 631 MOVL P6(AP),R1 : size of item list 
0S 13 O1BA O36 BEQL 10$ 3 can't be zero? 
5A 50 7D O18C 63 MOVQ RO,R10 3; Save both 
08 11 OIBF 634 BRB 3 3 ok, continue 
50 14 3¢ O1C1 635 10$ MOVZWL #SS$_BADPARAM,RO 3 status 
53 56 00 O01C&4 636 208 MOVL ‘ ; Restore IRP 
D1 11 ps4 eH BRB READ_ERROR 3; abort 
O0000000'GF 16 0109 639 30$: JSB G*EXESPROBER ; Can it be read? 
F2 50 €9 OCF 640 BLBC RO,20$ : branch if not 
50 58 00 O12 641 MOVL  R11,RO > size 
0105 $08 : Verify that size is multiple of 12 
01D5 644 : 
53 56 00 0105 645 MOVL R6,R3 ; Restore IRP 
51 D4 0108 646 CLRL R : quadword r0/r1 
50 5B 50 OC 7B ODA 64? EDIV #12,R0,R11,R0 3; divide : 
, 50 D5 ODF 648 TSTL RO 3 must be zero remainder 
DE 12 O81 649 BNEQ 10$ : error 
O1E3 650 3 
O1E3 651 3; Now loop and conquer item List, item by item 
01E3 63¢ 3 
ite 653 40$: 
51 BA 3C 1E3 654 MOVZWL (R10)+,R1 ; Length 
52 BA C O16 655 MOVZWL (R10)+,R2 ; item code 
50 8A DO O1E9 656 MOVL (R10)+,R0 ; address or immediate value 
8A D5 O1EC 657 TSTL (R10)+ ; Must be zero fiel 
ot. ta Bick O28 BNEQ 10$ : error if not 
oir 660 CASE R2,- 3 case on eorsage type 
1F0 661 <160$,- ; TRMS_MODIFIER (0) 
1FO 66 g008 = ; TRMS_EDITMODE (1) 
4 66 00$,- 3 TRM$_TIMEOUT a6 
1F0 664 400$;- > TRMS"TERM (3) 
1FO = 665 500$,- ; TRMS"PROMPT (4) 
| O1FO 666 600$,- ; TRMS$_INISTRING (5) 
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1F 667 700$,- 3; TRMS_PICSTRING (6) 
1F 668 4 3 TRM$_FILLCHR (3) 
1EO 669 00$;- ; TRMS-INIOFFSET (8) 
1F0 670 1000$- : TRMS-ALTECHSTR (9) 
34 671 >,- ; TRMS_LASTITM (10) 
B38 ore TYPE = W 
0208 674 ASSUME TRMS_LASTITM EQ 10 ; Break assembly if not right 
B7 11 0908 675 Re «10S . re 
O20A 676 
0 Ba of 100$: ; TRMS_MODIFIERS 
50 8000 BF AA § SA oe BICW #10$M_EXTEND,RO ; clear extend bit 
20 a3 50) AB oso 680 BISW RO, IRPSW_FUNC(R3) ; Set read flags 
SA 1 0 13 681 BRB 20608 - : Loop 
$58 $88 2008: ; TRM$_EDITMODE 
58 11 Og12 ons BRB 2000$ : ignore 
0217 686 3008: ; TRMS_TIMEOUT 
0217 687 
20 A8 dO bsi2 688 MOVL RO, TIMEOUT (RB) ; Set timeout 
20 a3. 0080 BF «= AS:-«(021B 689 BISW  #IOSM_TIMED,IRPSW_FUNC(R3) ; set read timed bit 
11 34 690 BRB 2000$ ; loop 
0223 691 
0223 692 400$: ; TRMS$_TERM 
51 DS 0223 69 TSTL R1 ; test length 
09 12 0225 694 BNEQ 410$ : If neq long format 
51 04 00 SEH 695 MOVL #4,R1 : Size of short format 
50 FB AA 9E Os A 696 MOVAB =-8(R10),RO ; Address of immediate data *** hack 
3 VW ¢ $f 697 BRB 430$ 3 skip 
0230 698 410$: 
Os ee 99 IFNORD R1,(RO),420$ ; Bitmask accessible? , 
20 51 Bi 0236 00 CMPW R1,#32 ; Bitmask greater than allowed size? 
0&6 i6 ver9 701 BLEQU 436$ : If less than or equal, no 
84 11 OS3e 70 BRB 10$ ; bad param *** other status? 
50 OC Ht 8 3D 6/03 420$: MOVZWL #SS$_ACCVIO,RO 3; access violation 
FFS?7 1 asee oe 6308 BRw READ_ERROR ; branch to read error 
10 AB 50 7D $508 706 mMOVa RO, TRMADDR(R8) ; save address and size of terminators 
2611 0247 107 BRB 2060$ > continue 
§ 49 709 500$ ;_TRM$_PROMPT 
08 AB 50 7D 0249 710 MOVQ RO, PRMADDR(RB) ; save address and Length 
FO 0240 711 INSV  #10$_READPROMPT,- 
06 09 O24F ar: #IRPSV_FCODE ,#MIRPSS_FCODE,- 
20 A 0251 71 IRP$W_FU c(r$) ; Set Read with prompt 
oc «(17 23 ay BRB 650$ 3; continue 
0255 £16 7008: ; TRMS$_PICSTRING 
50 00F4 ef 3¢ 0 55 71 MOVZWL #SS$_ILLIOFUNC7RO > for FMS... 
FF3D 1 2 nS BRW READ_ERROR 
3p 720 1000$ ; TRMS_ALTECOSTR 
5D 721 600$: ; TRM$_INISTRING 
18 AB 6500) =—7D 5D 7 ¢ mOVQ RO, INIADDR(RB) ; save address and length 
51 05 61 725 650$: TSTL R1 3 no need to check if zero 
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OA 13 6 724 BEQL 20008 3; Skip parameter 

Be 1 6 725 BSBB ge READERR ; check for read error 

ah of 4 § 8RB 000$ 3; continue 

69 728 8008: ; TRMS_FILLCHR 
69 729 900$: ; TRMS_INIOFFSET 
50 8 69 730 TSTw RO 3; test to see if present 
Oe 1 8 68 731 BEQL 2000$ 3; branch if not 
0 10 oP 4 g BSBB CHK_READERR : check for read error 
6F 734 2000$ 
01 5B FS gf 735 SOBGTR R11,2010$ ; loop 
05 736 RSB 
027 737 
FF6D 31 027 738 2010$: BRW 40$ Hy 
0276 739 
8 fe oy CHK _READERR: 
50 OODE CS 3¢ 0276 one MOVZWL UCB$W_RTT_READERR(RS),RO ; set status 
01 BO 0278 74 MOVW #SS$ Ro .* 
OODE C5 027D 744 UCB$Q_RTT_READERR(RS) =; set success if this happens again 
0150 €9 0280 745 BLBC = RO, 108 ; branch if error 
9 0283 746 RSB 3 continue without error 
FF13 1 bSa3 Se 10$: BRW READ_ERROR 3; abort 
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RTT_SETMODE, Function Decision Routine for SETMODE/SETCHAR Functions 
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; Functional description: 


This routine is called by the SYS$QI0 service to dispatch a SETMODE 
or SETCHAR I/0 request. 


The Q10 parameters for terminal SETMODE or SETCHAR are: 


address of 8 byte characteristics buffer 
, 8or 

speed specifier 

fill specifier 

parity flags 


IOSV_CTRLYAST - 
Pi = AST routine address or zero to cancel 


v 
nhnununw 


IO$V_CTRLCAST - 
P1 = AST routine address or zero to cancel 


1OSV_HANGUP = 
NONE 


: The buffer (if any) is validated for access, the process's quota 

: checked and decremented, a message block is allocated, the parameters 
3 (if any) are stored in the message block, the address of the message 
3 block is stored in the IRP, and the IRP is queued to the ACP for 

$ delivery to the remote system. 

: If an AST is to be enabled, an AST control block is allocated locally 
3 hung off the UCB for later delivery upon receipt of a corresponding 

: attention message from the remote system. 

a 


Inputs: 


NNN 
DWONAUE WN © OO NAME WN 0 ODNAUE WN OOONOUFSWwN—O Coz 


Ro-ke = scratch registers 


COOCSCOOCOCOCOCOCSCOCOCOCOCOCOCOCOCCOCOCOSCOCSCOOCOCSCOOCODOCOCOCOCOCOCOCOCOOOOO OOO OCOOOOCOOOOOo 
PORIPORIPOMONININOMINIPOPIPOPIPONINONIPIPOPOPOPONINININIPOPIPONINOINIPUIPOPOPOPOPOPINIPOPIPOPOPUPUROPOPOPUPOFONUNUND «= te? 
9000 00 00 09 09 09 C0 00 09 Od G9 Cd Cd CD Od OD OD OD OD Od C0 CD OD 09 Cd CD CD CD 09 CD CD 0D 09 0D CD CD CD CO CO COCO COCO CD CD CO COCNOCDCOCDCNCDCeCNCD 6S 
NNN SNS SSS NSN NSS SSSA ANNAN SSNS 


790 ; = address of the IRP (1/0 request packet) 
791 R4 = address of the PCB (process control block) 
rs R5 = address of the UCB (unit control block) 
79 R6 = address of the CCB (channel control block) 

794 R? = bit number of the 1/0 function code 

795 R8 = address of the FDT table entry for this routine 

P36 R9-R11 = scratch registers | 

a4 AP = address of the Ist function dependent Q10 parameter 

444 Outputs: 

01 IRPSL_SVAPTE(R3) = address of message buffer 

08 IRP$W_BOFF(R3) = size of message buffer 

Be The routine preserves all registers except RO-R2, R7, and R9-R11 
806 RTT_SETMODE: 3; SETMODE/SETCHAR FDT routine 


—_—_—__—_——- 
| 


; Nope 
BITL # <<<1824>=1>=<<1aTTSV_HALFDUP>=1>> - 
YCBSL_DEVDEPEND (RS) ; If extra bits set, then 
0$ 3; return incompat error | 
MOV 4te INCOMPAT ,=- ; but carry on with function 
IRPSQ_RTT_COMPAT(R3) =; 


BRW SET_MESSAGE ; send message 
: The following types of modifiers are not allowed on remote terminals 


00F00000 8 
44 A 
6 13 
0699 8F 80 
40 A3 


30$: 
004F 31 


AEA 


ECT: 
ONNECT: 


oa 
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40 A 4 7 7 CLRW IRP$SW_RTT_COMPAT(R3) ; No compatibility error 
50 20 A C A a8 MOVZWL 6 a SUS : Fetch function tode and modifers 
51 9 99 2.) 0 FFS #10$V_MAINT,#9,R0,R1 ; Find first set modifier 
13 4 19 BEQL SET_CRAR : if none then simple set mode. 
50 0380 8F B3 9 \¢ BITwW #<IOSM_CTRLCAST!- 
029A 81 1O$M_CTRLYAST!- 
8 9A 14 OSM_HANGUP>, RO ; Always legal functions 
| Sx 8 ae i BNEQ 0$ ; branch if any of these 
0005 ¢5) «95 «(029C B19 TSTB ° UCBSB_RTT_PRCECO(RS) ; Previous version 
| 12 Oca B18 BNEQ : Nope 
50 069C 8F Ht A 1 MOVZWL #SS$_INCOMPAT+3, RO ; Abort maintenance, outband, etc. 
010F 1 8 Ar ; 9 $08 BRW ABORT 3; with an error not success 
O2AA $ ¢ CASE R1,TYPE=B,LIMIT=#10$V_MAINT, <= 
O2AA 8 SET_MAINT.- ; 16SM_MAINT 
O2AA B24 SET-CTRLY,- ; IOSM~CTRLYAST 
O2AA 825 SET“CTRLC,- : IOSMICTRLCAST 
O2AA 826 SET-HANGUP, = : IOSMTHANGUP 
OGAA 827 SET-OUTBAND,- : IO$M~OUTBAND 
O2AA 828 SET-CONNECT,- > IOSMTCONNECT 
O2AA 829 SET-DISCONNECT,= : IO$M~DISCONNECT 
O2AA 830 SET_PID,=- ; LOSM_SETPID 
4 os He SET_BRDCST> ; IOSM_BRDCST 
8 C8 538 ; invalid characteristic if CASE falls thougn 
50 OOF4 8F 3C O2CO0 835 MOVZWL #SS$_ILLIOFUNC, RO ; Return as illegal operation 
OOF1 31 BgC3 538 BRW ABORT 3 with an error not success 
osce 838 SET_CHAR: 
OOFD 30 O2C8 839 BSBW GET_PARAMS ; validate and fetch parameters 
5B 48 a5 00 8 CB B40 MOVL UCBSL_DEVDEPND2(R5),R11 ; Extended word is defaulted 
59 81 7D CF = B41 mMOVQ (R1)+,R9 3 Get characteristics 
0c 52 01 0 De BAe CMPL = R2, #12 : Do we get another Longword? 
03 19 0205 84 BLSS 208 ; Nope 
5B 81 DO O2D7 844 MOVL (Rid+, R11 ; Obtain the third Longword 
40 AS 59 7D DA 845 20S: MOVQ R9,UCB$B_DEVCLASS(RS5) ; Set local copy of characteristics 
48 AS 5B v0 Ee Hh MOVL R11, UCBS$C_DEVDEPND2(R5) ; And extended longword 
0005 ¢ 95 8 E rts TSTB UL gOS ATT _PROECOIRS) :; If old version 
1 ee 49 BNEQ 0$ 
E 4 0 
FO 832 
O3F g 
F 4 
: 5 
FB 5 
| FB B58 
FB Q 
FB 0 
fa (Bee 
fe eS 
| 


~~ 


| 


RTT 
v04 
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50 0334 8F C 64 MOVZWL #SS$_DEVREQERR, RO ; Return as device re t 

0086 i 65 BRW ABORT : with an orrer not coe 


SET_BRDCST: 
BSBW | 


#REMSC_CURECO ; Long or short 
BNEQ ; Shorter message 
nova R 4 OL_TT_CHARZ+4 (A) 2 ; Address of longer message 


0$: MOVAB RBFSL_TT_PARITY+4(R2),R2; Set address beyond data E : 
0$: BRw RTT_NETMSGSENDX ; Send message to remote and exit service 


52 


9 
06 1 
52. 30 A2 9 
04 1 
9 74 
3 


2c A 1 
040 2 


: Process a setmode for an outofband ast 


te 
TMO 
F 
is 
00C2 0 6 S$ GET_PARAMS ; Get parameters 
| OOAB C5 6 3 6 63 MOVa —-(R1T,UCBSQ_TL_BRKTHRU(RSS; Set bits 
PS ; oy BRB SET_NOP ; Set done 
| D  87¢ SET_PID: 
60 AS 00 0300 = 87 MOVL  PCBSL_PID(R4),- 
| OOAS C5 i rh sll ai UCBSL-TL_CTLPID(RS) ; Set controlling PID 
OOA9 31 0515 B78 ~""BRW = FDT_FINISHIOC_OK ; Complete 1/0 
57 0090 C5 DE 8 ig 8 phen UCBSL_RTT_CTRLY(R5) ,R7 Get add f CNTRL/Y AST Li 
° ; Get address o st 
00000000" GF 16 8318 80 JSB G*COMSSETATTNAST 3 Enable an attention AST 
03 +€1 0321 881 BBC #UCBSV_TT_HANGUP,- 
21 68 AS 8 3 Ho UCB$W_BevSTS(R5S),CTRL_CY ; Branch if no hangup 
50. 67 0 6 88 MOVL (R7),RO ; Get address of AST block 
1c 615) «603290 = 8 B4 BEQL CTRL_CY : If eql. no AST to deliver 
54 57 00 tH B 885 MOVL R7,R& 3; Set address of AST Listhead 
10 AO O2cc BF = -3¢ E 886 MOVZWL #SS$_HANGUP,ACBSL_KAST+4(RO) ; Set AST parameter to hangup | 
00000000'GF 16 0334 887 JSB G*COMSDELATTNAST ; Deliver the AST immediately 
D7 «3611 «O33A 86888 BRB SET_NOP 3; finish 1/0 
033c = 889 | 
O33¢ 890 SET_CTRLC: | 
DE 033C 891 MOVAL UCBSL_RTT_CTRLC(R5),R7 ; set CNTRL/C AST enable 
16 pee) Bae G*COMSSETATTNAST ; Enable an attention AST 
O84 894 CTRL_CY: 
59 6C DO 0347 895 MOVL P1(AP) ,R9 :; Get address of AST routine 
Bach 536 ; fall htrough to send message 
S3ca 398 ; Create SET message and send to remote device | 
034A 899 ; 
O34, 900 SET_HANGUP: 
34A 901 SET_MESSAGE: ; Create and queue SET message 
5 30 0 8 4A O08 MOVL #RBFSL_TT_ CHAR2+4,R1 :; Set size of message buffer 
O1¢e 0 4D 90 BSBW ALLOC_MESSAGE ; Allocate a message buffer 
A2 9 D 0350 904 mova RBF$Q_TT gots} ; Set characteristics or AST parameter 
CA2 5B OD ba28 905 MOVL 1 FSL_TT_C (R2)_; And the next longword 
20 a2 O8 AC OD 58 = 906 MOVL  P3(AP),RBFSL_TT_SPEED(R2) ; Set speed | 
$3 A Oc AC 44 50 Ope MOVL P4(AP) ,RBFSL_TT_FILL(R2) ; Set fills 
8 A2 10 aC D 6¢ 908 MOVL P5(AP).RBFSL-TT-PARITY(R2) ; Set parity 
01 0005 C 6? 909 CMPB = UCBSB_RTT_PROECO(RS), - ; How Long should the message be? 
6c 911 
5 318 
914 
if 
HH 
319 
920 


57, 0094 C5 
00000000 ' GF 


— nnn 


OC 20 AS 0B 
009C 

0098 3 
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00C4 3 
00c8 3 
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Ll Driver 1 4 AX/VM cro V04-00 Page 
nction Decision Routine f g-S66 71984 88: 93: 3§ DRIVER.S RCIRTIDRIVER.MAR: 1 . 
SET_OUTBAND: 
BBS #10$V_INCLUD ; Include list? 
IRP$W-FUNCC(R $. 108 
MOVAB UCBSL RTT_BANDEXCL(RS),- f Address of exclude ast List 
MOVAB es RTT _BANDEXMSK(R5) , - - ; Address of the exclude mask 
BRB 208 ‘ 
MOVAB Y BSL_RTT_BANDINCL(R5),=- 3 Address of include ast list 
MOVAB yess. RTT _BANDINMSK(R5),- - ; Address of the include mask 
JSB G*COMSSETCTR Enable the asts 
MOVL  #RBFSB_TT COUTBAND #1444144, 
R1 3 set size of message 
HSBW ALLOC_MESSAGE ; Allocate a message 
AOVAB pe TT_OUTBAND(R2) ,- Address of data in message 
MOVB (R2)+ Count for sn Say mask 
MOVL Gus RTT _BANDINMSK(RS) 2; Include mask 
MOVB (R2)+ ; Count for exclude mask 
MOVL Ucés. RTT_BANDEXMSK(R5),- ; Now the exclude mask 
BRW RTT_NETMSGSENDX : Send the message 


RTTORIVER 
Rides 


ee 


4 1 
= Remote Terminal Driv ver <* see 13 4 2 Bos 93: 36 AX/VMS Macro v04-00 
ABORT, Transfer to EXESABORTIO -SEP-1 :2 DRIVER. a COR TTDRIVER.MAR; 1 
44 30 -SBTTL ABORT, Transfer to EXESABORTIO 
B9 951; 
44 $84 ; Error processing = abort 1/0 request 
B9 954 ABORT ; 
00000600 ' GF 17 B9 955 JMP G*EXESABORTIO 3 
ae 
BF 998 : Finish 1/0, clear R1 
BF 960 FoT -FINISHLO¢ OK: 
» FH F 961 7wl #SS$ NORMAL ,RO ; Set status OK 
8 C 308 FDT “FINISHTOE: 
00000000 ' GF 17 : $4 G*EXESF INISHIOC ; Complete 1/0 request 
bse 965 -SBTTL GET_PARAMS = Get set mode parameters 


nN 1 
RTTORIVER = Remote Terminal Driver 16-SEP=1 AX/VMS Macro v04-00 Page RTT 
“You-000 GET_PARAMS = Get set mode parameters 8 ~SEP-1 1984 60: 7 33 DRIVER.S RCIR TTDRIVER.MAR; 1 . a v04 
C 7 34+ 
C $68 3 GET_PARAMS 
C 38 ; 
C 970 ; inputs 
: 3 : AP => qio argument List 
C 338 : outputs 
C 974 ; ri = address of parameters 
: 54 3 r2 = 8 or 12 for size of characteristics buffer 
C 35$ 3; ABORT if P2(ap) is not 0, 8, 12. 
f 358 i ; Return ss$_incompat if not current system and size is 12. 
03C 44 | 
: +4 GET_PARAMS: 
» «& C 388 MOVL P1(AP),R1 ; Get address of characteristics 
0c 10 8 cB one BSBB RTT_CHARSIZE ; Obtain the size of the char buffer 
«6 CD 30985 MOVZWL #Ss$ ACCY1OR RO 3; Assume access violation 
0300 986 IFNORD R2,(R1),10$ ; Characteristics accessible? 
05 9308 987 RSB 3; return 
03D +3 10$: 
€0 11 0307 989 BRB ABORT : error | 
$39 991 -SBTTL RTT_CHARSIZE, Size of characteristics buffer 
0309 444 
0309 993 RTT_CHARSIZE: 
52 04 AC 0 0309 994 MOVL P2(AP), R2 ; Size of characters buffer | 
OF 13 O3DD 995 BEQL 10$ ; Zero is for | 
08 52 D1 O3DF 996 CMPL R2, #8 : 8 is allowed 
0D 13 O362 997 BEQL 08 3; Ok 
OC 1F O3E4 998 BLSSU 0$ ; Less is no good 
10 10 Q3&6 999 BSBB RTT_ECOQ : id reater then we must be Latest 
0c 3 D1 Beep 1000 CMPL R2, #12 : be 12 and nothing else 
0 if EB 1001 BNEQ 308 ; No weed 
0 Baee 1906 RSB 3 Ok 
52 08 00 ff 1003 10$: MOVL #8, R2 ; Use 8 if zero 
05 te 19s 20$: $B 
50 14 Ht O32 1908 308: MOVZWL #SS$_BADPARAM, RO ; Abort qio with an error 
FFC1 1 8 : 139 BRW ABORT 
03 1908 -SBTTL RTT_ECOQ, Validate latest eco number 
: FB 1 19 > RTT_ECOQ 
F8 1 \¢ 3 
F 1015 ; inputs 
F 1014 ; r3 ->> ir 
3F8 1015 ; r5 => uc 
Fe 1 16 3 outputs 
F 1017 ; return if eco is latest 
: ' 8 3 else abort Q10 with my _badparam 
F8 1020 
F8 1021 RTT_ECOQ: 
a 8% F 1 § CLRW eres TT comer tha} ; Make sure its ze 
0005 ¢ FB 1 TSTB UCBSB_-RTT-PROECO(RS) ; Latest for now is. just a one 
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RTTORIVER - Remote Terminal Driver 1 ~$E0-1986 00:03:36 yan/vas Macro V04-00 Page 23. RIT 
v04~ RTT_ECOQ, Validate latest eco number -SEP-1984 00:17:2 DRIVER. SRCIRTTORIVER.MAR; 1 (11) V04: 


6 is 3FF 61024 BNEQ 10$ ; zero is last eco level 
0699 4 B 28) 1025 MOVW ries INCOMPAT ; Return quiet error 
40 A 4 3 : RPSQ_RTT “COMBAT (R3) ; message 

0S 040 10$: RSB 


1 


= 


ee 
RTTORIVER = Remote Terminal Driver 16-SEP-1984 00:03:5 AX/VMS Macro v04-00 Page 24 
| V04 RTT_SENSEMODE, Function Decision Routine 5-SEP-1984 88:95:38 DRIVER. SRCIRTTDRIVER.MAR; 1 ’ (33) 
rt : 3 Be -SBTTL RTT SENSEMODE, Function Decision Routine for SENSEMODE/SENSECHAR 
rt ! 1 ; RTT_SENSEMODE, Function Decision Routine for SENSEMODE/SENSECHAR Functions 
O40 19 : Functional description: 
0408 1035 ; This routine is called by the SYS$QI0 service to dispatch a SENSEMODE 
BeO8 19 § 3 or SENSECHAR 1/0 request. 
0408 1038 3 The Q10 parameters for terminal SENSEMODE/SENSECHAR are: 
408 1040 : Pl = address of 8 or 12 byte characteristics buffe 
O¢08 1B¢3 ; P2 = 0, 8 or 12 . ne 
0408 1908 : The buffer is validated for access, the process's quota checked and 
0408 1044 ; decremented, a message block is allocated, the address of the message 
0408 1045 ; block is stored in the IRP, and the IRP is queued to the ACP for 
0408 1966 : delivery to the remote system. 
0408 1047 ; 
0408 1048 ; Inputs: 
0408 1049 ; 
0408 1050 ; RO-R2 = scratch registers 
0408 1051 ; R3 = address of the IRP (1/0 request packet) 
0408 1326 ; R4 = address of the PCB (process control block) 
0408 1053 ; R5 = address of the UCB (unit control block) 
0408 1054 ; R6 = address of the CCB (channel control block) 
0408 1055 ; R7 = bit number of the 1/0 function code 
0408 1056 ; R8 = address of the FDT table entry for this routine 
0408 1057 ; R9-R11 = scratch registers 
0408 1058 ; AP = address of the Ist function dependent Q10 parameter 
0408 1059 ; 
0408 1060 ; Outputs: 
0408 1061 ; 
0408 es 3 IRPSL_SVAPTE(R3) = address of message buffer 
0408 10635 ; IRP$W_BOFF(R3) = size of message buffer 
0408 1064 ; IRPSL_MEDIA(R3) = address of user characteristics buffer 
Be8e 1302 : IRP$W_BCNT(R3) = size of user characteristics buffer, 8 
bcos + 4 : The routine preserves all registers except RO-R2, and R9-R11 
0408 1069 RTT_SENSEMODE: ; SENSEMODE/SENSECHAR FDT routine 
40 Ad B4 Bebe 1970 CLRW IRP$W_RTT_COMPAT(R3) : No compatibility error 
59 20A3 3C Bo08 1078 MOVZWL IRPSW_FUNC(R3) ,R9 ; Fetch function code 
08 59 = «07 1 Q40F 107 BBC #10$V_RD_MODEM,RI,5$ ; skip if not read modem 
50 0334 BF 3c «(0413 1074 MOVZWL #SS$_BEVREQERR, RO ; Return as device request error 
FF9E 1 gels 2 $3 BR ww ABORT 3 with an error not success 
nm. CC 0 0418 1 ss : MOVL P1(AP),R1 ; Get address of characteristics buffer 
FFB8 30 ois 1 4 $ T CHARS! ; Size of chars buffer (return in R2) 
50 OC C 04 107 MOVZWL #SS$_ACCVIO,RO ; Assume access violation 
424 1080 IFW R2,(R1),1 :; Buffer accessible? 
FF8C 8 =O 331 ° 5 : 3) ¢ #4 BRWw ORT ; Branch if not 
59 ~0 f 42D 1 : ; BBC #10$V_BRDCST,R9,15$ ; Branch if not brdcst bit request 
61 O0OA8 £5. 7D 0431 1084 mMOVa UCBSQ~TL_BRKTHRUCRS),(R1S ; read bits (no remoting of this?) 
FFB6 «31 «0436 «1085 BRW FOT_FINISHIOC_OK ; Complete 1/0 


— 
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RTTORIVER = Remote Terminal Driver 16-SEP-1984 00:03:5 AX/VMS Macro v04-00 Page 25 RTT 
vtbe st RTT_SENSEMODE, Function Decision Routine 97361388 90:03:38 LORIVER.SRCIRTIDRIVER-MAR: 1 . (93) v04 
439 1 G18: 
51 6C 08 439 1 MOVL P1C(AP),R1 ; Get address of characteristics buffer 
98 10 043C 1088 BSBB = RTT_CHARSIZE : Size of chars buffer 
50 OC 3C O43E 1089 MOVZ2WL #SS$ ACCYIO.RO 3; Assume access violation 
441 1090 IFNOWRT R2,(R1),7 ; Buffer accessible? 
0005 ¢5 «95.0447 «1091 TSTB YCSB_RFT_PROECOCRS) : Previous version 
12 12 0448 1 5 BNEQ $ 3 Nope 
3F 46 AB s«044D 193 BICW3 #IRPSM_FCODE,- 3; Obtain the modifiers 
50 20 A3 44F 109% IRPSW_FUNC(RS), RO : to look for bad ones 
0040 8F 50 B81 0452 1095 CMPW RO, #TOSM_TYPEAHDCNT 3 Only good one 
06 13 0457 1096 BEQL §«=s- 208 ; Ok 
0699 8F B0 oth 44 MOVW #SS$_INCOMPAT,- ; Return quiet error : 
40 A3 45D 1098 IRP$@_RTT_COMPAT(R3) t to signal the incompatibility 
38 AS 51 DO O45F 1099 208: MOVL R1,IRPSL_MEDIA(R3) ; Save address in packet 
32 AS 52 BO 0463 1100 MOVW R2,1RPSW BCNT(R3) ; Set size in packet — 
2A AS F AB 0467 1101 B1SW #IRPSM_FONC IRPSW_STS(R3) ; Set READ type function 
51 18 DO 0468 1108 MOVL § #RBFSKHEADERLEN,R1 : Set size of message buffer 
000D 30 O46— 110 BSBW ALLOC_MESSAGE ; Allocate the message buffer 
52 18 Ag 9E 0471 1104 MOVAB RBFSL_PARAM1(R2) ,R2 ; R2 points to end of data ; 
030 31 0475 1105 BRW RTT_NETMSGSENDX ; Send the message and exit service 


—E 2 
RTTORIVER - Remote Terminal Driver 16-SEP-1984 00:03:5 AX/VMS Macro v04-00 P 
v04-000 ALLOC_MESSAGE, Allocate a message buffer misty 7 8:99:38 DRIVER. SRCIRTTDRIVER.MAR; 1 est 3) 


-SBTTL ALLOC_MESSAGE, Allocate a message buffer 


p++ 
; ALLOC_MESSAGE, Allocate a message buffer to send to remote process 
; SET_MSGHOR, Setup a message header for broadcast 


Functional description: 


This routine checks that the process has sufficient buffered I/0 
byte count quota for the pessege buffer, and then allocates the 
buffer from non-paged pool. The process's buffered I/0 byte count 
quota is decreased by the size of the allocated buffer and the 
message header information is stored. 


Inputs: 


= size of message required 
R3 = address of IR 


RG address of PCB 
Outputs: 

R1 = size of buffer 

R2 = address of buffer 


IRP$SL_SVAPTE(R3) = address of buffer 
IRP$W_BOFF(R3) = size of buffer 


RBFSB_TYPE(R2) = Block type 

RBFSW_SIZE(R2) = size of message buffer 

RBFSW_OPCODE(R2) = 1/0 function 

RBFSW_MOD(R2) = 1/0 function modifiers 

RBFSL_REFID(R2) = Reference id of function 

RBFSW_UNIT(R2) = Set to SVPN of the ucb (?? not used really) 
If process does not have sufficient quota, the 1/0 request 


is aborted. 
ALLOC_ABORT: 
POPL 


RRRR RRR RRR RRR RR RRR RRR RRR rx 


53 8EDO R3 ; Restore IRP 
FF3B 31 BRW ABORT 3; and abort the 1/0 
E ALLOC_MESSAGE : ; Allocate message buffer 
53 OD E PUSHL R3 3; Save packet address 
00000000'GF 16 0 JSB G*EXESBUFFRQUOTA :; Check quota 
EF 50 =€E9 6 BLBC RO,ALLOC_ABORT ; Branch if error 
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> Allocate the message buffer 


ch G*EXESALLOCBUF 
BLBC RQ -ALLOC_ABORT 
POPL R 


RRR RRS PRR R RRR RRR RRR RRR RR 


Allocate the buffer 
Branch if error 
Restore packet address 


00000000 ° GF 
E6 5 


: Adjust process's quota 
MOVL PCBSL_JIB(R4) ,RO 
SUBL R1,JIB$L_BYTCNT (RO) 
MOV —-R1 IRPSW~BOFF (R3) 


Get Job Information Block address 
Adjust buffered 1/0 byte count quota 
Save buffer size as quota 


a a a a a a 8 a a i bt a a a tt tt tt tt 
ma a a ad ad dd dd dd a 8 
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RTTORIVER = Remote Terminal Driver 16-SEP-1984 ¢ 98: 03: 36 AX/VMS Macro V04-00 Page ¢7 
v04 ALLOC_MESSAGE, Allocate a message buffer 5-SEP-1984 2 DRIVER.S REJRTTDRIVER.MAR; 1 (14) 
4A2 1165 ; 
4A 1198 ; Store message header information 
4A2 1167 ; 
tas 1189 
4A 1196 ; RO = Clobbered 
4A2 1171; R1 = Buffer size 
4A 1126 3 R = Buffer address 
4A2 1173; R = IRP address 
Ocas 1195 
7s 1176 SET_MSGHDR: 
12 A2 50 A3 00 Rea 1178 MOVL [ert femmes « ° ; Sequence number of the operation 
50 1C AS DO O4A7 1180 MOVL IRP$L_UCB(R3), RO ; Unit control block address 
16 A2 74 A0- BO bene 13 MOVW UCBSL~SVPN(RO} , - ; Bogus unit number, not used 
00 EF 0480 1188 EXTZV #IRPSU_FCODE,- Set requested funct ton code 
OF A2 20 A3 06 0482 1184 #IRPSS7F CODE IRPSW_FUNC(R3), RBF $W_OPCODE (R2) 
10 A2 20 A3 3F AB O4B7 1185 BICW3 #IRPSM_FCODE, IRPSW_FUNC(R3),RBFSW_MOD(R2) ; Set requested modifiers 
gash ts 
048D 1188 ; Setup a message header but don't depend on the irp address 
O4BD 1189 ; except for svapte. 
$3 130 
O4Bp 119¢ SET_MSGHDRX: 
2C Ads 8:2 O4BD 1194 MOVL R2, IRP$L_SVAPTE(R3) ; Save buffer address in packet 
08 A2 51 BO O4C1 1195 MOVW R1. RBF SW SIZE (R2) ; Save buffer size in message 
13 04C5 1196 MOVB #0YNSC_BOFIO,- ; Set block type 
OA A2 04C7 1197 RBF$B_TYPE (RO) 
ms eee i199 wee eh ey eee peated ans 
04 A2 D4 O4CD 1200 CLRL RBFSL_USRBFR(R2) ; Set user buffer address 
05 0400 1201 RSB ; 


p= 
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RTTORIVER = Remote Terminal AX/VMS Macro V04-00 Page 28 RTT 
thet RTT_INTERRUPT Interrupt handler mit} 7 88 03: 3§ YORIVER. Sh SRE SRTTDRIVER.MAR: 1 . (15) v04 
red ! - ea -SBTTL RTT_INTERRUPT In .errupt handler 
4p1 5 ; RTT_INTERRUPT, 1/0 completion interrupt handler 
id ! oF ; Functional description: 
0401 1209 This routine handles an 1/0 completion ‘interrupt’ from the ACP. 
0401 1210 : The 1/0 status and data is obtained from the response packet from 
etd : V} : the remote terminal handler process, and the I/0 request is completed. 
0401 1 18 Inputs: 
rtd 1214 : 
401 1215 ; R3 = aeeress . the IRP 
0401 1 16 : R5 = addre ucB 
ot $4 : ei 3 fRpsu: SUAPTECRS) = address of response message 
04D1 1219 IPL = 0 
0401 1220 : 
04D1 1221 : Outputs: 
0401 1 ¢ : 
ert ; $7 i ; 1/0 status copied to IRP$L_IOST and I/0 request posted. 
ot$ : $2 3 ; This routine only needs to preserve R11. 
04D1 1559 RTT_INTERRUPT: : 1/0 completion interrupt handler 
52 2C A3 D0 04D1 \s 8 MOVL IRP$L_SVAPTE(R3) ,R2 ; Get address of aqssoge 
51 62 DO 0405 1229 MOVL (R2),R1 ; Address of data in b 
01 €1 0408 1230 BBC #IRP$V_FUN : If clr not OP AD/ SENSE /BROADCAST 
47 2A A3 O4DA 1231 IRPSW sTstns), POST 
00 EF O4DD 1 3 EXTZV #IRPST_FCODE,- : Get original function code | 
06 O4DF 123 #IRPSS— CODE - 
50 20 A3 04E0 1234 IRP$W_FUNC(RS) ,RO 
60 13 O4E 1235 BEQL POST BROADCAST s 3f seh BROADCAST function 
27 50 91 Q4E5 1236 CMPB 0,#T0$_SENSEMODE $ ns MODE function? 
1C 13 04E8 1237 BEQL : If ths xe 
1B 50 91 O4EA 1238 CMPB OATS SENSECHAR 3 SENSECHAR function? 
| a Roce \¢7) BEQL Post. zlf eql yes - else read {function 
Beer : a : Set up buffer to post READ 
62 14 Al 9E O4EF 1 rk ? MOVAB RDPS$T_TT_RDATA+2(R1) (R2) Set address of data 
04 A2 38 AS DO O4F3 1244 MOVL IRPSL MEDIA RS) .4(R25 : Set oddress of user buffer 
12 Al Bi O4F8 1245 CMPW RDP$T_TT_RDATA(R1),= ; Size of data greater than user buffer? 
32 A 4FB 1 rt] IRPS$W “BERT CRS) : 
2 1A O4FD 124 BGTRU POS : If gtru yes - leave user's size 
12 Al BO O4FF 1248 MOV RDPS$T_TT ROATACRYD - ; Else. set size to actual data size 
32 A3 502 1249 IRP$W_BCAT(R3 : 
1E 11 494 : a BRB POST ; 
506 1 3g 3 : Set up buffer to post SENSEMODE/CHAR 
506 125 
306 34 PosT_SENSE: ; 
506 1 2$ : Note that for the latest protocol, either 8 or 4 bytes will come 
: ? : 2 3 from this part of the message. Size is already in 
62 12 A1 9E 0506 1 35 ‘ MOVAB RDPS$Q_TT_SCHAR(R1),(R2) ; Set address of data 


RTTORIVER = Remote Terminal Driver I¢° SEP- mh 9 Ob: 93: 36 AX/VMS Macro V04-00 Page 4 
v04-0 RTT_INTERRUPT Interrupt handler ~SEP-1984 DRIVER. SRCIRTTDRIVER.MAR; 1 (15) 
04 A238 A 3 pA 1260 MOVL IRPSL_MEDIA(R3) ,4(R2) ; Set address of user data 
00D f ; OF 6} STs UCBSB_RTT_PROECO(RS) i Latest version 
; Yes 
48 A Dd 318 1 $4 MOVL Se eet OE VDE NOS (Rh?) «= ; Return additional characters if 
1A Al 215 ! rt: 108 RDOPSL_TT_SCHAR2(R1) 3; they are requested 
FFCO 8F B63 OSIA 1 96 BITW #*CIRPSM Pcoere= ; Check for spawn bits only if no 
20 A3 SIE 126 [eeeu FUER ) ; modifier on the sensemode 
02 \¢ 5 1 rt: BNEQ 0$ ; We have modifier 
26 Cid1 82 ¢ ! § 208 BSBB SENSE _ SPAWN ; Set the three bits for spawn 
524 1 st POST: Post the 1/0 
2A AS a * BF AB 0524 1 i BISW #IRPSM_TERMIO, IRPSwW_ sts (R3) 3 Set. terminal 1/0 completion 
A Al 7D 052A 1027 MOVQ RDP$Q_STATUS(R1),- ~ ; Set 1/0 status 
38 A3 52D 1274 IRPSL- of O3T) Re) 3 
8 AS Bi OS2F 1275 CMPW IRPSL- I1OST1(R3),- 3; If normal return 
01 05 ¢ 127 #SS$_RORMAL 3 
OA 12 OS 127 BNEQ 3; Nope 
40 A3 B 0535 1278 TSTW IRPSW_RTT_COMPAT(R3) ; Check for compatibility error 
05 1 0538 1279 BEQL 10$ 3; Nope 
40 A? BO O53A 1280 MOV IRP$SW_RTT_COMPAT(R3),- ; Return compatibility error 
38 A3 053D 1281 IRP$L-1OST1(R3) ; to user 
00000000'GF 17 Boze ' HY 10$: JMP G*COMSPOST 3; Post the 1/0 
0545 1284 ; Post a BROADCAST completion 
0545 1285 
0545 1586 Post _BROADCAST: : 
0545 1287 BUG_CHECK BRDMSGLOST ; NOT supposed to get here... 
05 0549 1288 RSB” 


RTT 
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SENSE _SPA Sense for spawn “SEP-19 DRIVER.SR ROIR TTDRIVER.MAR; 1 (16) 


-SBTTL SENSE_SPAWN Sense for spawn 
Sense “Bits "t ehorarterseetes bits for DCL spawn command. 


1290 
3 
4A 1 38 3 Return bits for ctrl/c ast, outofband ast and associated mailbox. 
4A 1294; These bits may be reused later and are not for customer application 
546A 1295 ; consumption. 
ae 1 39 3 
4A 1297 ; inputs 
54A 1 38 ; pe -> RDP message 
5S4A 1299 ; 
54A 1300 
B2eA 1301 SENSE_SPAWN: 
50 AAl_ 9E 4A 1 ¢ MOVAB RDPSL_TT_SCHAR2(R1) 3 gserece of the characteristics 
60 0200 BF AA O46 130 BICW #TT2$sA ptt gfthiLex. (RON : 
60 AS Be 553 1304 TSTL UCBSL "ARE : Any “assoc lated mailbox? 
1 b228 1305 BEQL 10$ 3 
60 0200 8F As 0558 1 6 BISW eee 3 Tots so set characteristic 
055D 1307 10$: 
05 055d 1308 RSB 
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1 on -SBTTL RTT_CANCEL, Cancel 1/0 routine 
; RTT_CANCEL, Cancels an 1/0 operation in progress 
; Functional description: 


This routine cancels ony CTRL/C or CTRL/Y AST's that were 
requested by the cancelling process on the cancelling channel. 


Oooo 
wi 


SR ee ee ee meee rere Salalah ah ah ah ah ah ah ah ah ah ah ah ah ad ah ah ad ah ah ad ad ad ad a ead ead a eal eal oa oa Oa Oe) 


If there are no more references ge tage to the device, the UCB 

is queued to the ACP to notify it that the device is no longer in 
use. The ACP will then check that the reference count is still zero 
and remove the UCB from 1/0 database and deallocate it. 


Inputs: 
Re = negated value of the channel index number 
R3 = address of the current IRP (1/0 request packet) 
R4 = address of the PCB (process control block) for the 
process canceling 1/0 
RS = address of the UCB (unit control block) 


IPL = driver fork IPL 
Outputs: 
DEVSM_DMT is set in UCBSL_DEVCHAR to prevent a race if someone 


assigns and deassigns another channel to the UCB before the ACP 
dequeves the UCB. 


The routine preserves all registers except RO-R3. 
ENABLE LOCAL_BLOCK 


ASSUME CANSC_CANCEL EQ 0 
ASSUME CANSCDASSGN EQ 1 


OOA4 10$: BRW 50$ 


WW 
—— 


DIE BBE BEE EE FAWN WINININIIRPIPIPNPININININID 2 2 PO OO OO 


ee ed dd dd 
AINE WR 9 ODNA USAIN [OOD NOAUE WIN O OD NOAU EWN OO OONOA UE WIN SO OONOUS WN Oo 


CSOOOCOOCOCOCOCOOOCOCOCOCOSOOCOCCOCOOOOOCOOCOOOCOOOCOCOOOCOCOCOOOOOOCOOOOOOCOO 

COCO OD OD OD. DEDEDE DE TTT 
RNOLLMOONVMINOS xP OL LL MMMM MMMM MmMMMMmMmMmMmmmmmmmmmmmmmmmmmmmmmmmmrnerry 
AIAN AAA A ANIAIAAI AIAN NII AIA AAI AIA AINA NIAAA AIAN AAAI AAAI AAAI 


009E 208: BRW 40$ 
RTT_CANCEL: ; Cancel an 1/0 operation 
OOFO 8F 6B 5 PUSHR #*M<R4,R5,R6,R7> ; Save registers 
E1 5 BBC #UCBS$V_ONL INE ,- : If clr unit offline - probably template 
FI $4 AS 3 UCB$W_STS(R5) ,10$ : 
C a5 OBS TSTW UCBSWTREFC(RSS : Any more references to device? 
EF 13 : BEQL 208 : Nope all done. 
56 52 0 5 MOVL ag one ; Make a copy of channel number 
58 OD 5 TSTL R ; Cancel or deassign 
0B 13 2 BEQL 25$ ; Cancel 
57 0090 C5 DE 6 MOVAL UCBSL_RTT_CTRLY(R5),.R7 ; Get address of CTRL/Y AST List 
00000000'GF 16 ° JSB G*COMSFLUSHATINS ; Flush all cancelled AST's 
57 094 C5 ODE 64 25$: MOVAL UCBSL_RTT_CTRLC(RS),.R7 ; Get address of CTRL/C AST List 
9000 OOO'GF 16 6 JSB G*COMSF LUSHAT TNS ;_ Flush any cancelled AST‘s 
57 0004 C5 9E 6 MOVAB UCBSL_RTT_BANDINCL(RS), R7 ; Flush any outofband asts 
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RTTORIVER = Remote Terminal Driver SEP=1 
YOur000 RTT_CANCEL, Cancel 1/0 routine "er SEP=1 
BA nol 
Li. 
NDE 
NDE 


cs «(9 4 1367 MOVAB UCBSL_RTT NMSK(RS), R2; peek addres 
foo0 O50" 1 $3 1 rt: JSB G CORSE LUSHC $ ush them by chennet etc 
5 0 c C3 SE F 4 : MOVAB UCBSL_ RT DEXCL(RS), &7 ; Plush any outofband asts 
: 098 ¢5 «(9E «(5A 1 0 MOVAB UCBSL~ 17BA XMSK(R5S, R2°; mask address 
0000000'GF 16 ag } 4 JSB OS EORSFLUSHCTRES ; Flush them by channel etc 
en : 74 ; If we are talking to new version, tell him the new masks. 
00D5 Cf AF 1375 ° TSTB CBSB_RTT_PROECO(RS) — ; Nonzero for Latest 
35 3 583 (1 6 BEQL itd d version 
i b0 38 f OVL anor 88. TT .OUTBAND+144 4144, . i ize of the outband message 
; bu 
3 pd 0588 137 PUSHL R3 ; Save across dirty routine 
00000000'GF 16 O5BA 1380 JSB G*EXESALONONPAGED : Get me some aenery 
53 8EDO b2tg 1381 POPL 3 restore packet address 
37 50 ~€9 OSCS 1 Hf BLBC RO, 30$ ; Hang it up for lack of space? 
Be ae 
pace 1385 3; Here comes an incredible hack. We are going to build a message to be 
056 1 36 3; transmitted which has no irp context. It will have a REFID of zero. 
05€6 1387 ; To do this we need an irp address with a svapte field to save the 
05€6 1388 ; packet address. We make an ‘‘irp’’ by Ss is'6 the address of a cell in 
05€6 1389 ; the ucb which can be used. The address is backed up by the svapte offset 
; so that for this purpose it looks ke an irp. 
05C6 1590 h f hi it l li 
b8ce 1392 
53 oD bere 1398 PUSHL R3 : Save the bad r3 
53 4C AS 9E OSC 1338 MOVAB re agg PTE - ; Make a bogus irp address 
OScc 1395 RPSL SVAPTED (RS), R35 with only a good svapte 
Fcce 38 bere 1336 BSBW SET : Set up the message header 
12 A2 D4 OSCE 1397 CLAL RBFSL “REF 1D (Ra) : Ref id is zero 
16 A2 B4 3208 1338 CLRW ners, T(R2) io unit specified 
14 BO 05D5 1399 MOVW PSB. "T OUTBaNDs1s4sts4,~ ms Size of data to be sent 
0c a 0507 1400 Rar su BaTS1Z ; to the server 
OE A2 2 BO 0509 1401 MOVW #10$ SET nObe Set t op 
3208 1406 RBFS$O SEINODE ; code rr the message 
10 A2 0400 8F  B0 20 1237 MOVW 4 “OUT est - ; : Sng she modifier 
or the message 
52 18A2 9 bz 1405 MOVAB RBFSB- T OUTBAND(R2), R2; Now build she mecsage itself 
82 04 90 OSE7 1406 MOVB # 7 Count for include mask 
i nclude mas 
00¢8 c3 D0 O5EA 1407 MOVL UCBSL_ RTT_BANDINMSK(R5),-; Includ k 
82 04 90 OSEF 1409 MOVB on eR R2)+ ount for exclude mask 
MOVL UCBSL_ ANDEXMSK(R5),=- : "in the exc e mas 
0098 {3 dO ae 1219 0 Oy $L_RTT_BANDEXMSK ( 5),- h lud k 
O1A4 2F$ et BSBwW RTT ” NETCANSEND : Send the message to the server 
53 8EDO OSFA 141 POPL R3 ~ : Restore the bogus irp address 
aD ais 
W _CAN ; Cancel outstanding s 
02€7 30 5SFD 141 BSB RTT_CANIRPS C l di IRP 
03 =11 6 141 BRB 50$ 
6 1018 
° +} 40$: 
? We : Clean up the ucb after all references have gone 
cS : Flush all irps from queue 
0118 30 6 14 ¢: BSBW RTT_ABORTIRPS Flush all i f 
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1488 2 sos: ; Insert UCB in ACP queue 
14 ’ ; POPR #°MCRG,RS,RO,R7> ; Restore registers 

12 RSB 3; Return 

14 g -DISABLE LOCAL_BLOCK 
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RT 
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NSO 
$ : 1 1 J -SBTTL RTT_UNSOLIC Unsolicited interrupt handler 
? 1? $ Z RTT_UNSOLIC, Unsolicted interrupt handler 
? : 1 5 : Functional description: 
60A 14 : : This routine handles unsolicted attention messages from the remote 
PRA 1? 8 : terminal handler process. If the message is: 
60A 1440 ; Unsolicited data: If device has any references, deliver message | 
60A 1441 ; to associated mailbox; if no references, 
pena 14tg : deliver a message to the Job Controller. 
° | 
Q60A 1444 ; Hang-up: Deliver any CNTRL/Y AST's, spect tying hang-up; 
sty 1222 : deliver a hangup message to associated mailbox. | 
OegA 144 ; CTRL/C or CTRL/Y: Any corresponding AST's are delivered. | 
060A 1449; STARTRCV Start the receive to the net. | 
060A 1450 ; 
eon jase ; Puts: | 
060A 1288 ; R3 = address of attention message 
Q60A 1454 ; R5 = address of UCB | 
Q60A 1455 ; 
Q60A 1456 ; IPL = 0 
Q60A 1457 ; 
pena 1628 ; Outputs: 
sty 1269 ; Message or AST(s) delivered and attention message block deallocated. | 
060A 1462 :-- 
Q60A 1463 RTT_UNSOLIC: ; Unsolicted interrupt handler 
53 DD Q60A 1464 PUSHL R ; Save address of mesage block 
060C 1465 DSBINT UCBS$B_FIPL(RS) : Synchronize access to UCB | 
51 63 DO 06135 1466 MOVL (R3) ,R1 ; Obtain the address of the data | 
0616 1467 CASE ROP$W_MOD(R1) ,<- 3; Case on message modifier type 
0616 1468 UNSOL_DATA,=- ; Unsolicited data 
0616 1669 HANGUP , = : Hengup 
3018 1470 CTRLC,- 3: CNTRL/C 
616 1471 CTRLY,- : CNTRL/Y 
bere 1028 STARTRCV,=- ; Start network receive 
616 147 RTT_BRDCST - ; Broadcast message for mailbox 
16 1474 RTT_OUTBAND,- ; Out of band ast character 
18 1475 >, LIMIT=#RBF$C_TT_UNSOL ; 
0050 =—«éB ° ; 1476 BRW UNSOLIC_EXIT ; 
Get 1478 ; Deliver unsolicited data notification | 
6 C 1480 UNSOL_DATA: ; Unsolicited data | 
54 01 QA C 1481 MOVZBL OAS 68 _TRRUSOL IC RA ; Set mailbox message type 
5C AS fy 62F 14 § TSTW BSW_REFC(RS) 3; Any references to device? 
11 652 14 BEQL :; If eql no - notify Job Controller | 
53 60 AS 0 654 1484 MOVL BSL_AMB(RS) ,R3 ; Get address of associated mailbox 
244 Cis 658 1485 BEQL $ ; If eql none - forget S.. 5, 
eocceer?* 18 635A 14 § JSB SACRE SSMDE VSS ; Deliver notification to mailbox 
1850 =«2©C€ 640 14 BLBC RO,20$ ; If loc failure 
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RTTORIVER = Remote Terminal Drive 16-SEP-1984 AX/VMS Macro v04-00 Pa 5 RT] 
v04= RTT_UNSOLIC Unsolicited. interrupt handle ~3bp=1 3c 88: th 33 DRIVER.S REIR RTTORIVER.MAR; 1 = ay v04 
19 «#11 43 14 BRB 208 
00000000'GF $3 1383 et we G*TTYSGL_JOBCTLMB Get add f Job Controller mail 
. » et a nese of Job Controller mailbox 
4 00 80 ; eet 1491 BBS UCBSV_ JOB ,UCBSW oe scisfthot Branch if notified already 
eeaney *| of 18 $37 1436 te CAE SSNDEVMSG ; Deliver notification to mailbox 
68 AS «(01 AB eek be 208 BISW #utBSM _J0B ,UCBSW_ DevsTs(RS) : ; Set Job Controller notified 
1c 11 65 149 BRB UNSOLIC_EXIT ; 
$06 1299 = 
ée0 1298 : Deli h tificati | 
3; Deliver hangup no cation 
oe 1390 3 _ 
$8 128) anc getesee | 
: 3; Dataset hangup 
008c 3830 3998 1208 BSBW RTT_HANGUP ; Do the hanes” stuff | 
17 11 0663 1504 BRB UNSOLIC_EXIT 3 
BO82 138 | 
665 1506 ; 
Bee8 1507 ; Start network receive 
665 1508 ; 
0665 1509 | 
beee 1510 STARTRCV: 
0197 30 0665 1511 BSBW RTT_STARTNETRCV ; Start it out of Line 
11 0668 136 bHB UNSOLIC_EXIT 
066A 151 
66A 1514; 
66A 1515 ; Deliver any CNTRL/C AST's 
066A 1318 : 
066A 151 
066A 1518 CTRLC: ; Deliver CNTRL/C AST's 
54 0094 C5 DE 066A 1519 MOVAL UCBSL_RII_CTRLC(RS),.R4 ; Get address of CNTRL/C AST List 
05 11 O66F 1520 BRB DELAST 3 
0671 1521 
0671 15 § ; | 
boo) 1523 ; Deliver any CNIRL/Y AST'S 
671 1524; 
0671 1525 
0671 1526 CTRLY: : Deliver CNTRL/Y AST‘'s | 
54 0090 C5 ODE per} 1 i omane MOVAL UCBSL_RTT_CTRLY(R5),R4 ; Get address of CNTRL/Y AST List 
00000000 ' GF 16 ore 1 , JSB G*COMSDELATTNAST : Deliver the AST's 
7¢ 1 1 UNSOLIC_EXIT ; Exit unsolicited message handler 
67C 1 § ENBIN : Re-enable interrupts 
Hi BEDS 67F 15 POPL RO Get address of message block 
OA AO 1 9 tt 1534 MOVB #DYNSC_BUFIO, IRP$B_ TYPE (RO). ; Be sure buffer type is valid 
00000000 ' GF i o3e 133? J28 G*EXESDEANONPAGED ~ ; Deallocate the message block 


= Remote Terminal 
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68D 1 
SBD 1880 se 
68D 1540 ; 
68D 1541; 
68D 1 ts 3 
680 1545; 
68D 1544 ; 
68D 1545 ; 
68D 1 $$ i- 
68D 154 
68D 1 rt RT 
tt4 154 
38 48 AS) 046 #4€1 O068D 1550 
0692 1551 
60 A 0 069 1326 
3 13 0695 155 
OE Al 54 AS BO 0697 1554 
069C 1555 
52 28 a5 00 069C 1326 
50 14A2 06 00 EF OQ6A0 155 
50 D6 Q6A6 1558 
06A8 1559 
3F §69©BB 6CQ6AB =S1560 
10 A1 10 O00 14A2 50 2C OQO6AA 1561 
068 1206 
0682 156 
3F BA O06B2 1564 
0684 1565 
38 ee 06B4 1366 
53 OA Al C 0686 156 
54 OC Al 9E O6BA 1568 
55 AS DO O6BE 1569 
00000000'GF 16 06C2 1570 
38 BA 06C8 1571 
O6CA 1376 
FFAF 31 O6CA 157 


ss 
o 
a 


8 
Driver 


16-SEP-1984 :03:5 
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RTT_BROCST 
Deliver broadcast message to the mailbox. 


; The unit number and name of the device is fixed 


T_BRDCST: 


BBC #TT2$V_BRDCSTMBX, - 
UCB$L_BEVDEPND2(R5),10$ 


TSTL UCBSL-AMBCRS) : 
BEQL 10$ : 
MOVW  UCBSW_UNIT(RS), = : 
RDP$W-TT BRDUNIT(R1) : 

MOVL UCBSL-DDB(RS), R2 : 
EXTZ2v #0, #%, DDBST_NAME(R2), RO : 
INCL RO 3 
PUSHR #*M<RO, R1, R2, R3, R4, RSD : 
MOVCS RO, DDBST_NAME(R2). #0. - ; 
#ROPSC_TT~BRDNAME, - : 
RDPST_TT_BRDNAME (R1) : 

POPR #*m<rO, Ri, R2, R3, RS, RS> : 
PUSHR #*M<R3, RG, RSD 3 
MOVZWL RDPS$W_TT_BRDTOTSIZE(R1), R3 ; 
MOVAB RDP$WTT“BRDMSG(R1), R4 : 
MOVL UCBSL~AMB(RS), RS : 
JSB G*EXESWRTMAILBOX : 
POPR #*M<R3, RG, RS> : 
$ BRW UNSOLIC_EXIT : 


AX/VMS Macro V04-00 
DRIVER. SRCIRTTDORIVER.MAR; 1 
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up in the packet first. 


If we are allowing mailbox 
to receive the messages 
and we have a mailbox 


ope 
Then fix the unit number 

in the message 

and get the proper name of 
this device for the message 
including the count 


Copy the new name and 
clobber the remainder of the 


; stuff in the fixed Length 


field 


; restore the regs 


Save a few 

Size of the message 
Address of the message 
Mailbox ucb address _ 
Write the message to it 
and ignore the errors 


Go clean up the packet. 
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v04- RTT_UNSOLIC Unso licited. interrupt handle S73 7138 88: 3: 38 DRIVER.S ROIR TTDRIVER.MAR; 1 . (35) 
eee 1575 
cD (1 6 3¢ 
thy : 4 ; RTT_OUTBAND 
6cD 1 ig ; Deliver an out of band ast 
6CD 1580 ;- 
6CD 1581 
6CD 1 ¢ RTT_OUTBAND: 
53 OA Al 9A O6CD 1 MOVZBL agree. TT_OUTBAND(R1), R3 ; Deliver the asts (char) 
53 D Q06D1 1584 USHL R ; Save the character 
oc4 C5 € 0603 1585 MOVAB UCBSL_RTT_BANDINCL(RS), ; List address 
eestpedt 16 sets 1 § JSB G*COMSDELCTRLAST ; Deliver the asts 
; 8EDO O6DE 1 POPL R3 : Recover the character 
54 o009c C SE O6E1 1588 MOVAB UCBSL_RTT 70 | mei ; List address 
O0000000'GF 16 O06E&6 1589 JSB eS CORSDE LCTR ; Deliver the asts 
FF8D 31 O6EC 1590 BRw UNSOLIC asthe ; Thats all done 


mar 
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Voueo08 RTT_HANGUP = Perform hangup functions mets 0:95:38 DRIVER. SRCIRTTDORIVER.MAR; 1 ’ 3% 
6eF 1 3 -SBTTL RTT_HANGUP + Perform hangup functions 
vet : 87 ad «-SBTTL RTT_ABORTIRPS = Abort irps outstanding 
6EF 1595 ; RTT_HANGUP Perform hangup functions 
6EF 1 38 ; RTT_ABORTIRPS 
6EF 1597; 
6EF 1598 ; Functional description: 
O6EF 1599 ; 
6EF 1600 ; Deliver ony CNTRL/Y AST's, specifying hang-up; 
6EF 1601 ; deliver a hangup message to associated mailbox. 
6EF 1606 3 Post any irps outstand ng with abort. 
set 1603 ; Set hangup status in device status. 
6EF 1604 ; The ucb is passed on to the acp if there are no more 
O6EF 1605 ; channels open to it. 
O6EF 1606 ; HANGUP is called by net device errors and hangup operations 
Q6EF 1607 ; from the Line on the other end. 
free 1008 : ABORTIRPS is called on net device cancels and channel deassigns. 
O6EF 1610 ; Inputs: 
O6EF 1611; 
O6EF 1ol¢ 3 RS = address of UCB 
O6EF 1613 ; 
O6EF 1614 ; 
OG6EF 1615 ; Outputs: 
O6EF 1616 ; 
O6EF 1617 ; Message or AST(s) delivered. 
O6EF 1618 ; 
QO6EF 1619 ;-- 
O6EF 1620 RTT_HANGUP: 
54 0090 CS DE OQO6EF 1621 MOVAL UCBSL_RTT_CTRLY(RS5),R4 ; Get address of CTRL/Y AST List 
50 54 00 O6F4 16 ¢ R4,RO ; Copy list address 
O6F7 1623 108: 
50 60 DO O6F7 1624 MOVL (RO) ,RO : Get address of next entry 
08 13 O6FA 1625 BEQL $ : If eql none 
O2cc 8F 3C O6FC 1626 MOVZ2WL #SS$_HANGUP,- ; Insert new parameter for AST 
iC AO 0700 1627 ACBSC_KAST+4 (RO) : 
FS 11 0702 1628 BRB 10$ : 
0704 1629 20$: 
00000000 ' GF 16 0704 1630 JSB G*COMSDELATTNAST :; Deliver the AST's 
54 06 DO O70A 193) MOVL #MSG$_TRMHANGUP ,R4 ; Set mailbox message type 
53 60 AS 09 070D 16 é MOVL CBSL-AMB(RS) RS : Get associated mailbox address 
13° 0711 «+163 BEQL ; If eql none sacorgee t 
00000000'GF 16 Brt8 1 : 30s JSB G*EXESSNDEVMSG : Deliver notification to mailbox 
08 a8 $919 1636 BISW #UCBSM_TT_HANGUP,- ; Save hangup status 
68 AS 0718 1637 UCBSwW_BevSTS(R5) : 
fat 16 3 
71D 1639 ; 
Bore 1640 ; Clean up the outstanding jirp read to network so it completes 
71D 1641 ; without calling driver again. Post all outstanding irps with 
071D 166 3 abort. 
071D 1643 ; 
71D 1644 
71D 1645 RTT_ABORTIRPS: 
71D 1646 
71D 1647 ; . 
71D 1648 ; We must be at ipl 7 or above here 
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RTTDORIVER = Remote Term 
v04-000 RTT_ABORTIRPS Abort irps outstanding -SEP-1984 DRIVER. SRCIRTTDRIVER.MAR; 1 
71D 1649 ; 
ay, 1929 DSBINT UCBSB_FIPL(RS) ; Synchronize owth other entries 
724 1652 ; 
724 1888 3 Fix the interlock with the receive iirp so it will be deallocated 
724 1654 ; when it completes. We must say we did so here. The condition is 
724 1655 ; NETIRP = 1 and IRPSL_AST = 0 means that its gone. If NETIRP = 0 
4 ri 1928 3 it has never been allocated and given to netdriver. 
724 1658 ° 
50 oococsS oD 724 1889 MOVL UCBSL_RTT_NETIRP(RS),RO ; Look at address of receive iirp 
96 1 729 1660 BEQL i ; Nope not here 
03 E 72B 1661 BLBS RO,10$ ; Dummy, all done? 
10 AO 4 07 E 166¢ CLRL IRPSL_AST(RO) ; Nope so tell receive iirp 
00co cS —(01s«é# bf 196 10S: MOVL #1,UCBSL_RTT_NETIRP(RS) ; Clobber address here 
0736 1665 ; 
0736 1998 : Now we abort all of the irps that we have at this time. 
bate 1667 ; 
0736 1668 
53 0088 0S OF 0736 1669 208: REMQUE @UCBSL_RTT_IRPFL(RS), R3; Obtain an irp from queue 
F 1D 0738 1670 BVS 30$ 3; No more 
38 AS 62C)0CS OC SCé73D S167 MOVZWL #SS$_ABORT, - ; Complete with abort status 
0741 167 IRPSC_10ST{(R3) : 
3C A3 D4 0741 167 CLRL IRPS$L_IOST2(R3) $ 
00000000 ' GF 16 0744 1674 JSB G*COMSPOST 3; and ae % 
EA 11 O74A 1675 BRB 20$ 3 and back for more irps 
074C 1676 
074C 1677; 
074C 1678 ; If there are no more channels to this device, then pass it on 
074C 1679 ; to the acp for disposal. 
074C 1680 ; 
074C 198) 
5C AS B5 O74C 16 ¢ 30$: TSTW Urge _REFCERS? 3; Any channels to device? 
26 12 Beef be $4 BNEQ 0$ : Yes 
01 AA 0751 198? BICW #UCBSM_JOB,- ; Clear Job Controller notified 
68 AS 0753 1686 UCB$W_BEVSTS(RS) ; 
15 €E2 0755 1687 BBSS #DE DMT,- : If set, UCB already queued | 
1D 38 AS 0757 1688 UCBS| DEVCHAR(RS) 508 : 
53. 55 DO O75A 1689 MOVL R5,R ; Set up ucb as the packet 
52°34 050 0750 1690 MOVL  UCBSL_VCB(RS),R2 : Get address of VCB 
52 10 A2 00 761 1691 MOVL VCBSL_AQB(R2),R ; Get address of ACP AQB 
00000000 ' GF 1 0765 169¢ JSB G*EXESINSERTIAP : Insert UCB in ACP queue 
OA 1 76B 169 BNEQ : If w*. not first entry in queue 
51 OC A2 00 0760 169% MOVL AQBSL_ACPPID(R2),R1 : Get ACP process ID 
00000000'GF 16 0771 1695 JSB G*SCHSWAKE ; Wake the ACP process 
777 =1696 40$: 
777 «+1697 50$: ENBINT ; Restore IPL 
05 O77A 1698 RSB : 
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NETMSGSEND = Send message to net dr 5-SEP-1984 17:2 DRIVER. SRCIRTTDRIVER.MAR; 1 
re 1791 -SBTTL RTT_NETMSGSEND = Send message to net driver 
778 17 : ; RTT_NETMSGSENDX = Send message to netdriver and exit qio 
778 1705 ; RTITLNETMSGSEND <= Send message to netdriver 
778 1704 ; RTT_NETCANSEND = Send message for cancel 
ore Vy 5 ; RTT_NETQUEPKT - Queue message to net driver 
0778 17 5 ; inputs: 
778 17 3 ; r2 -> address beyond message data (NETMSGSEND) 
gree 1709 ; r$ => rtt irp 
778 1710; r4 => pcb 
77B (1711; r5 => rtt ucb 
re 1Tt8 
77B 41714 RTT_NETMSGSENDX: 
06 77B «#1715 BSBB RTT_NETMSGSEND ; Send the message and 
00000000 ' GF ares 1716 JMP G*ERESQIORETURN ; Return from the qio 
078 at RTT_NETMSGSEND: 
50 2c “ 8783 ah ot [PR6L SVAPTE (RS) .RO ; The buffer address 
3 none 
ie 2a 0789 1721 SUBL3 (RO),R2,R1 : Make the length of the data 
0c AO 51 078) 17 : MOVW R1,RBFSW_DATSIZE(RO) : save in the buffer 
o00co c5 0791 1723 10$: BLBS UCBSL_RTT_NETIRP(RS),- : We do not have a receive posted 
3A 0795 1¢se RTT_NETHUNGUP 3 $0 this cannot work. We have hungup. 
O0BC DS) = 63 0796 1725 INSQUE (R3J, = 3 Queue the irp on the ucb 
0798 1726 QUCBS$L_RTT_IRPBL(RS) 
3c a3 bree 152 CLRL IRPSL_TOST2(R3) 3 No cancel has been sent yet 
1843 i? 4 RTT_NETCANSEND: ; Send cancel message 
es O79E 1731 BSBW RTT_MAKEIIRP ; Make iirp for this message 
55 50 O7A1 17 ; BLBC RO, RTT CLEANUP 3; No memory, hangup and goaway 
08D5 "CF O7A4 1733 MOVAB woRTT RETURTDONE..- : Place to post io 
2c a2 aC A O7AA 1735 MOVL  IRPSLTSVAPTE(R3), - : Move buffer to iirp 
0 1736 [RPSL SVAPTE (RQ) : 
2C AS O7AF 1737 CLRL IRPS$L_SVAPTE(R3) ; drop it from rtt irp : 
51 2C A2 0 1738 MOVL IRPSL_SVAPTE(R2) ,R1 ; fix the byte count in the iirp 
32 A2 (OC Al 0 1739 MOV)  RBFSWTDATSIZE(R1S, - =: from the size in the buffer 
4 109 IRP$W_BCNT(R2) ; 
0 ee RTT_NETQUEPKT: ; Queue a packet to the netdriver 
SoBe 1748 ; 
7BB 1745 : re -> net iirp 
1068 $ r3 => rtt ir 
7BB 1747 ; r5 => rtt uc 
1929 * 
Hy 68 7 1750 PUSHR #*M<R3,R4,R5> ; Save the magic three 
53 § D 7BD 1751 MOVL e ; Point to iirp 
sS)6hOUM A dO 1736 MOVL IRPSL_UCB(R3) RS ; The netucb from this packet 
00000000 ' GF 16 O07C4 17 JSB GAEXESAL TQUEPKT ; Queue iirp to netdriver 
33 BA 1754 POPR #*M<R35,R4,R5> 3; restore magic three 
50 1 0 1755 MOVL #1,R0 3 return success 
0 1756 RSB 
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= Remote Termi Driver cro V04-00 Page 42 
RTT_NETMSGSEND = Send message to net dr ~$eEr 382 88: +e 38 DRIVER.SR REIRTTOR RIVER.MAR; 1 . (26) Tat 
7D0 1759 
700 1760 ; 
700 1761 ; Re => RTT ves 
7D 1706 3 => RTT IRP 
700 1763; 
700 1764 ; 
700 1765 ; The net connection is broken, so we must post the irps that come 
7D 1706 3; in with an error code. 
700 1767 ; 
700 1768 
7D 109? RTT_NETHUNGUP : 
50 2c A3 09 7D 1770 MOVL {res SVAPTE(R3),RO ; Do we have a buffer 
1 704 1771 BEQL 3; Nope 
DD 07D ire PUSHL. RS 3; Push address we care about 
2c A D4 0708 177 CLRL FaPSL SVAPTE(R3) ; Forget we had buffer 
00000000'GF 16 O7DB 1774 JSB G*EXESDEANONPAGED ; Get rid of the buffer 
BEDO O7E1 1775 POPL R3 ; Restore irp address 
00000000 eee 8F 7D O7E4 1226 10$: mova aes$ LINKABORT,- ; Return a nasty error 
8 AZ 7EE 177 IRPSC_10ST1(R35 : 
00000000'SGF 16 O7FO 1778 JSB if COMSPOST ; Post the irp since we don't have 
50 D4 girs 1779 CLRL RO 3; a Link anymore and return error here 
0S O7F8 1780 RSB 
O7F9 1781 
O7F9 1786 
O7F9 178 -SBTTL RTT_CLEANUP = Hangup terminal 
O7F9 1784 ; 
O7F9 1785 ; RTT_CLEANUP 
O7F9 1786; 
O7F9 1787 ; We are in deep trouble. » “Te the terminal to run it down 
O7F9 1788 ; and return failure in r0. is is done when we cannot obtain 
bore 178) ; memory for an iirp or any thing else. IPL can be anything. 
O7F9 1791 : inputs: 
O7F9 1736 3 rS => rtt ucb 
O7F9 1793 ; 
O7F9 1794 
O7F9 1795 RTT_CLEANUP: 
O7F9 Ha 
FEF3) 30 O7F9 179 BSBW RTT_HANGLP : Post irps and attn asts 
50 D4 O7FC 1798 CLRL RO : return failure 
05 O7FE 1799 RSB 
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Driver 1 :0 AX/VMS Macro v04-00 
= Start receive to net g- -SEP-1984 t 88: 03: 38 YORIVER. SREIRTIDRIVER MAR: 1 


~SBTTL RTT_STARTNETRCV = Start receive to net driver 
S RIT _STARTNETRCV 


Start the first receive iirp to the netdriver. We make an iirp 
and queve it to the netdriver with a read function in it. 


inputs: 
r5 => rtt ucb 
TT_STARTNETRCV: 
rk ycest_ RTT_NETIRP(RS) ; Is the ne oun tt out? 
n 
MOVW #SS$_INCOMPAT ,UCBSW_RTT heAbeRRtRS) : set initial error 
BSBW RTT_AA meetin ae : eke an iirp for use 


BLBC no RTT_C © good, clean it all u 
uc CBS etre NETIRP(RS) Seve the address of cher iirp 
MOVAB cary -NETREADBONE, - ; Stuff the post address 


IRPS$L-PID(R2) 3 

MOVW 10$_READLBLK ; Set the function 
IRP$Q_FUNC(R2 3 

CLRL IRP$L_SVAPTE(R2) ; Yes we have no buffer 

MOVW G* 10CSGwW_MAXBUF ,- 3; Set the requested size 
IRP$W_BCRT(R2) ; 

BBSS #IRPSO_FUNC, - ; Say this is a read function 
IRP$W_STS(R2), 10$ : 
RTT_NETQUEPKT 3 and queue the packet to the net 


$2 | 
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ps 
er yorsyer = Remote Terminal Driver 1 ~$E0= 1986 90:03:38 ey Macro v04-00 Page 44 
v04- RTT_NETREADDONE = Post routine for net -SEP-1984 17:2 DRIVER. SRCIRTTDRIVER.MAR; 1 (28) 
? } ¢ -SBTTL RTT_NETREADDONE = Post routine for net receive 
? ! : ; RTT_NETREADDONE Post net receive 
4 1 $ 3 This is the pest routine for receives from the netdriver. 
4 1 ; We look at the packet and send it to the unsolic or interrupt 
4 1 8 5 routine based on the type of the message. If the type is 
2 : a4 3 not recognised or we can't find the irp, we hangup the terminal. 
8 2 ! *} ; We are going to run this code at rtt driver ipl. 
88 4 1 rk 3; inputs: 
4 1844 ; r5 => net iirp 
0834 1845 ; ipl = iopost 
OB3c Bc? | 
0834 : rt RTT_NETREADDONE : 
BB oe ae 1850 PUSHR #*M<R3,R4,R5> ; Save the magic three 
0856 1851 DSBINT #RTTSK_FIPL : Do this work at driver ipl 
DO O085C 1326 MOVL R5 ; The iirp address is here 
bd 083F 185 MOVL  IRPSL_AST(R3),R5 ; The rtt ucb? 
13 0843 1854 BEQL 1 ; Its gone, we are hung up 
E9 0845 1855 BLBC  IRPSL_IOST1(R3), 60$  : Error? if so then hang up 
DO 0849 1856 MOVL  IRPSL-SVAPTE(R35, R2 =; The buffer address 
DO 084d 185 MOVL (R2),R1 ; Point to message 
50 Al 0850 1858 ADDWS #1,RDPS$W_OPCODE(R1),RO ; Look at the opcode 
14 12 0854 1859 BNEQ 20$ 3; Its not attention packet 
2C AS) = S=—(0856 =: 1860 CLRL OPS, .SVAPTE (AS) ; Buffer not in net packet now 
53 52 pD0 0859 1861 MOVL R2,R ; Point to buffer with r3 
FDAB 30 085C 1366 BSBW RTT_UNSOLIC 3; Unsolicited input attention message 
39—Cis«11 pe7t HF v4 BRB 40$ ; Requeve a read 
0861 1865 10$: ENBINT ; Restore tet 
38 0864 1866 POPR #*M<R3,R4,R5> ; Restore all the regs we saved 
006C OQ 0866 1867 BSBW RTT_NETWRTDONE ; Dispose of the iirp and its buffer 
05 paee 1368 RSB 3 
50. iB OBA 1890 20$: INCW RO ; Is this an end message? 
58 12 O86C 1871 BNEQ 60$ ; Nope, oangue the terminal 
0 62 od0 O86 1 % MOVL (R2),RO 3; Point to data 
50 4 a0 DO 0871 187 MOVL ROPSL_REF ID(RO) ,RO ; Obtain the reference id 
2 1 pare 1874 BEQL 408 ; ** Ignore refids of zero to make 
bBe 1875 3; ** cancel of outofband work 
54 0088 C5 7E 77 «1 6 MOVAQ UCBSL_RTT_IRPFL(R5),R4 ; Look through the irps for ours 
51 54 p00 O87C 187 MOVL R4,R1 ; head of queue here 
54 64 DO O87F 1878 308: MOvL (R4)_R4 > Link through chain 
51 54~—CO«T 1879 CMPL —seRG RI : end of irps? 
,* oe 1 rs BEQL 6 : Yes, could not find it, hangup 
50 AG 28 »} 8 } 1 pues RO, IRPS$L_SEQNUM(R4) 3; Match? on ref id 
3 nope 
2c Ag 04 Hy 1 : CLRL IRP$L_SVAPTE(R3) 3 But fer not in net iirp now 
33 4 OF 90 1884 REMQUE (R4) ; Remove the rtt irp from queue 
2c A é 0 93 1885 MOVL  R2,1RPSL_SVAPTE(R3) > stick buffer there 
C 97 1 6 BSB «=—sa RT f_INTERRUPT ; and call interrupt routine 
ga 1888 fo 
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1930} RTNADR 

12(SP) RS (iirp address) 

8(SP) R4 

4 (SP) R3 

O(SP) SAVED IPL (iopost) 

MOVL 12(SP),R3 : Obtain the net iirp 

MOVL IRP$L_UCB(R3) ,R5 ; Set the net ucb address up 

MOVL 1RPSL- “SVAPTE(R3) ,RO ; dump the buffer 

BEQL $ ; if there is one to 

PUSHL R 3; Save goes toly eLobbereg register 

JSB G*EXESDEANONPAGED : back into sy mming pool 

POPL R3 ; Restore register 

CLRL ee oy 4th! ; forget it 

MOVW SGw a - 3; setup for another read from net 
Frese BCAT(R 3 with requested buffer size 

JSB GAEXESAL TOUEPKT 3; queue to net driver 

BRB ; Now we are done here 


If we had on io error in the packet, then hangup the terminal 
deallocate the packet and any buffer and exit. 

there is no rtt ucb left anymore, just deailocate the packet 
and buffer and get out. 


BSBW RTT_HANGUP ; Bad error = hangup the terminal 
MOVL 12(5P),R5 3; Net iirp to r5 

SBBséRRTT NE TURTDONE : Dump the buffer and the iirp 
ENBINT : Restore the ipl 
soy #*M<R3,R4,R5> i; restore registers of iopost 
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0 rmi 
E ONE 
4 13 § -SBTTL RTT_NETWRTDONE = Post routine for net write 
p 19 4  RTT_NETWRTDONE 
05 19 : : Enter here to post writes to net also. 
: 1 3 Deallocate the iirp and the message if any. 
d§ 19 § : r5 => iirp 
DS 1930 ; ipl = jiopost or higher 
Be i 
3 13 RTT_NETWRTDONE : 
50 2c a3 0 4 i 5 peor FSCS SOMME CAS? : Buffer on this iirp? 
3 nope 
08 10 Q08DB 19 $ BSBB 20$ 3 deal Locate the buffer 
50 55 00 O8DD 19 : 10$: MOVL R5,R0 : Now for the see itself 
00000000 ' GF 16 SED 1939 20S: JSB G*EXESDEANONPAGED 3; back to the poo 
05 O8E6 1940 RSB 
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RTTORIVER - Remote Terminal Driver 
vou-000 RTT_CANIRPS = Cancel irps 
ice amy 
34 1944 RTT_CANIRPS 
E? 1945; 
aE 
a 
BE? 1959 : r5 => rtt ucb 
E7 1951; 
ae 
E7? 1954 RTT_CANIRPS: 
gore or we SHE 138 pus 
56 0088 C5 ee 5 EB 1989 MOVAQ 
56 DD OBF 1338 PUSHL 
O8F 1960 ; 20(SP) 
O8F2 1961 : 16 
O8F 1306 : 12 
O8F 1963 ; 8 
O8F 1964 ; 4 
ie wei 
56 66 DO OB8F2 1967 10S: MOVL 
6— 56 Di OB8FS 1968 CMPL 
—E 13 O8F8 1969 BEQL 
28 A6 «614 AE Bi OBFA 1970 CMPW 
F 12 O8FF 1971 BNEQ 
0C AB «660 A4- ODT s«0901 197¢ CMPL 
0906 197 
12 Bens 1974 BNEQ 
53 8 pO 0908 1975 MOVL 
3C A D5 0908 1976 TSTL 
2 is O90E 197 BNEQ 
laa DO 0910 1978 MOVL 
5 DD 091 1979 PUSHL 
00000000 ' GF 16 34 1980 JSB 
53 8ED0 0918 1981 POPL 
11 50 4 pale 1956 BLBC 
FB7E 0 43 19 SBW 
924 1984 ASSUME 
924 1985 
38 pO 0924 19 § MOVL 
OE A2 9 6 19 
OA B60 09 1988 MOV 
OC A2 92A 1989 
92C 1990; MOVL 
rege 30 O92C 1991 BSBW 
06 50 €9 O92F 1336 BLBC 
3C AS sé DO 09352 19935 15$ MOVL 
BA 11 3 199% BRB 
OO7E 8F aA 9 1338 20$ POPR 
5 093C 199 RSB 
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RTT_CANIRPS 


rh => pcb for process 
r6 => channel 


#°M<R2,R3,R4,R 
UCBSL_ RTT" IRPF 


: 
R3 


R2 
IRP LIST HEAD 


ng. (SP) 


e0(SP), , IRP$W_CHAN(R6) 
PCBSL_PID(R4), = 
IRPSL-PID(R6) 

108, 

PROSE 10ST2(R3) 
#RBFSW_UNIT+2, R1 
G*EXESALONONPAGED 


#1 Sep 
10$ 


#*M<R1,R2,R3,R4,R5,RO> 


- Cancel irps 
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Cancel irps by sending a message to the terminal system. 


Point to the irp queue 
save its address 


; Point to next irp 
; ae of queue? 


is this the correct channel? 
Nope, my next 
Do the pids +1 ae 


Nope, try next 

Set up as the irp of choice 
Did we send a cancel? 

We are done. just return 

Get a message buffer for cancel 
Save across call 


Its clobbered if quick irps are gone 
If error, just say we did it 
duild the message 


The message opcode and modifier 
The datasize 


Save the buffer address ** 
Send the message 

Error, IRPS are all gone 
Mark for we sent it 

try another irp 


Restore regs and return 
Discard stack longword to rl 


RTTORIVER -R 
v04-0 RTT 
51 C4 8F 5 
Q00000000'GF 16 
3 8ED0 
3A 50 = €9 
OA A2 OA 90 
08 A251 = B0 
OC A D4 
10 A2. 5 dO 
0084 ¢5 = 0 

18 A 
0080 C dO 

1C A2 
20 =—«B0 

20 A2 
23 A2 04 «90 
B0 

en A2 
0 7 B4 
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minal Driver 
= Manufacture an internal 


.SBTTL RTT_MAKEIIRP 
RTT_MAKELIRP 


rs 


: inputs: 
: outputs: 


RTT_MAKELIRP: 


=> rtt ir 
=> rtt uc 


16-SEP-1984 
=SEP=1984 


r0 = success or fail 


00:97:28 


- Manufacture an internal irp 


MOVZBL #1RPSC_LENGTH,R1 : 
PUSHL R : 
JSB G*EXESALONONPAGED ; 
POPL 3 : 
MOVB #DYNSC_IRP, - ; 
IRP$B_TYPE(R2) ; 
MOVW =-R1,, IRP$w $126 (R2) : 
CLRL —sIRPSL_PIB(R2) : 
MOVL  R5,IRPSL_AST(R2) ; 
MOVL  UCBSL_RTT_NETWIND(RS),- ; 
IRPSL~WIND(R2) : 
MOVL UCBSLIRTT_NETUCB(RS).- ; 
IRP$L-UCBTRe) ; 
MOVW #10$ OR ITEL ELK. : 
IRP$Q_FUNC(R2) : 
MOVE #4, IRP$B_PRI(R2) ; 
MOVW  #IRPSM_BOFIO,- : 
IRPSW_STS(R25 : 
CLRW = IRPSW7BOFF (R2) ; 
CLRQ  —sIRPS$L=10ST1(R2) : 
ASSUME IRPSLZOBCNT - 
IRPSL_ABCNT+4 
CLRQ ——sIRPSLABCNT(R2) : 
MOVL IRP$L~SEQNUM(R3),- : 
IRP$L~SEQNUM(R2) ; 
MOVL  IRPSLTARB(R3),- ; 
IRP$L~ARB(R2) : 
10$: RSB 
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Make an internal IRP for sending to the netdriver. 
If we can't get the space, return failure. 


; Obtain a buffer of correct size 
; Save across call to get memory 
; from dynamic memory 

; Restore re address 

; No memory le 

; Set the type and size fields 


ft, so return error 


; No pd here 

; Save the rtt ucb field 
; Set up the window 

; and the ucb for the net 
; the function 


: pty of this in queue 


ts a buffered io function 


; and assume a write 
; no quota to return for iirp 
; no status yet 


Some more byte counts 
Grab a quick sequence number 


Page 3 


Access rights block, incase needed 


8 | 
1). 


TF 
vO 


RTTORIVER 
vou-000 


-SBTTL RTTLEND, End of driver 
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a ~00 fees TF 
mae = Rese Teri ore SEINE ABA AMER ESRB ms HP | 
Symbo\ table 

= 90000020 R _—02 EXESFINISHIOC eeeeeeee 

$35, = 00 06 EXESINSERTIRP open : 
ABOR 0000585 R 03 EXE SMAXACMODE eeeneees 
ALLOt ABOR $009) ETE SOTORE TURN rommeen | SG 
een att Sooocve ROS eNreer ane ponneans: 2 ae 
ALLOC “MESSAGE 047E R sree eine ; 

“ACPPID = 9000000¢ EXESSN eteetere x OS 
ATS. NOLL = 0000000 EXESURITECHK etaeeete x OS 
pur eaee = 09000008 aes tlds 00003(2 R08 
Sct SROMSGLOST eeereree +4 03 OTF INISHIOC_OK - 4 t gd R 03 
Ear -cances = bop goos SET PARRAG. Soogscs RO 
By S0000s76 RO HANGUP 90000660 R 03 
COMSDELATTNAST reeteeeee x 03 bef Peg ' . Bopp Oo ee 
COST LUSHAT TNS -seemneriagty fag | INISige. = 0000001¢ 
COMSFLUSHATITNS eeeeeeee x FRLCAST ° BBObOs OS | 
COMSFLUSHCTRLS eeeeeeee x 03 IOSM_CTRL = 00000080 
COMSPOST eeeteeee 08 1OSM~CTRLYAST = 90000080 | 
COMSSETATTNAST ereereee x 08 1O$M~EXTEND = 90008000 
COMSSETCTRLAST eeeereee Kk 08 10$M~HANGUP = 90000200 
CRBSL. INTD = 00000024 10$M~OUTBAND = 90000400 
CTRL” 0000066A RS s«O8 LOSMCTIMED | = 90000080 
CTRLY 00000671 RO 1OSM~TYPEAHDCN = 90900040 
CTRL CY 00000347 03 LOSV~BROCST = 90000006 
DCS_TERM = 00000042 10$V BREAK THRU = 90000008 
coon ere ae tint IOS TNCLUDE = 00000008 
SOS T MARE = 00000014 LOSV"RAINT = 90000006 
Ne alee 1 Oey scoroNT EOL = 90000038 

7 = 00000002 10$-READLBLK 5 
PE VSATI6U = 04000000 LOS-READPBLK = 9000000¢ 
EVSM-NNM = 00000200 10$"READPRO = 0000087 
DEVSM~ODV = 08000000 LOS-READVBLK = 90000031 
DEVSM-REC = 00000001 108 SENSE CHAR = 90000018 
DEVSM-RTT = 00000004 1OS~SENSERO = 90000027 
aren = Oooo S os Se TRODE = 90000088 
OPTSC~LENGTH = 00000038 LOS-TTYREADALL, = 9000008 
pertain 09000088 R02 Oat ATUAL = O90008F 
OO TSRE LVI TAB 0000081 R sé LOS-WRITELBLE = 90000020 
ait. ay) EE : aR 
DYNSC_ BUF IO = 0000001 1O8-WRITE VLE 00000050 a 
DYNSC"CRB = 00000005 1OCEGu WAX eeeaeene x 9 
DYNSC7D = 00000006 LOCSMNTVER eeeeeees 0 
DYNSC~DPT = 0000001E 1OCSRETU _ tassneee 
DYNSC~IRP = 0000000A IRPSB_PRI = 90000023 
DYNSC”OR = 00000049 IRP$B_TY - = Ropnenen 
DYNS$C~ UCB = 00000010 IRPSC_LENG . $ 9 
EXESABORTIO eeeeeeee =X 03 IRPSL_ABCNT = 8 : 
EXESALLOCBUF eeeeeeee XQ TRPSL ARB : 
EXE SALONONPAGED ceeteeee x IRPSLAST : 
EXESALTQUEPKT ceceeeee IRPSL~10ST1 = 0000038 
EXE SBUF F ROUOTA teeeeere x IRPSL~10ST2 = 0000005¢ 
EXE SDE ANONPAGED ereceeee i [RPSL MEDIA : 
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RTTDRIVER - Remote Terminal Driver 16-SEP-1984 00:03:5 AX/VMS Macro v04-00 Page TFE 
Symbol table met 7 90:03:38 LORIVER. SRC IRTIDRIVER.MAR: 1 ° (33) vO« 
RTT_READ 00000C5 R 0 UCBSL_DEVDEPEND = 00000044 
RTT_SENSEMODE 408 R UCBS$L_DEVDEPND = 48 
RTT—SETMODE : a UCBSL-RTT_BANDEXCL 2 3¢ 
RTT_STARTNETRCV OO7FF R UCBSL_RTT_BANCEXMSK = 9 
RTT_UNSOLIC 00 b60A 0 UCBSL_RTT_BANDINCL z C4 
RTT WRITE 0000078 R UCBSL_RTT_BAND INMSK = 38 cs 
RT_READ_ITMLST OOO001A0 R UCBSL_RTT_CTRLC = 4 
SCASWAKE eeneeeee =X UCBSL-RTT_CTRLY = 0000 20 
SENSE SPAWN 0000054A R 0 UCBSL_RTT_DEVDEPEND2 = 0000004 
SET_BROCST 00000 03 8 0 UCBSL_RTT_IRPBL s Spo oper 
“CHAR 000002C8 R 0 UCBSL_RTT_IRPFL = 00000088 
SET- CONNECT 98088 FBR 8 UCBSL_RTT_NETIRP = O80 b8Ce 
SET-CTRLC 000052C R UCBSL_RTT_NETUCB = 008 
SET_CTRLY 00000316 R 03 UCBSL_RTT_NETWIND = SOOO TE 
SET_DISCONNECT 44 As a 03 UCBSL_SVAPTE = 00000078 
SET" HANGUP Q000034A R 03 UCBSL_SVPN cs 4 94 94 
SET_MAINT 4544 eg R 03 UCBSL_TL_BANDQUE = 0000009C 
SET_MESSAGE 0000034A R 03 UCBSL_TL-CTLPID = 000000A4 
SET_MSGHDR 000004A2 R 03 UCBSL-TL_ TREC = 00000094 
SE T_MSGHDRX aise] R 03 UCBSL_TL_CTRL = 00000090 
ET_NOP 00000313 R 03 UCBS$L-TL ~SUTBAND = 00000098 
SET-OUTBAND aie EES 4 03 UCBSL_VCB = 00000034 
SET_PID 0000030D R 03 UCBSM_JOB = 00000001 
SS$_ABORT = 0000002C UCBS$M_TT_HANGUP = 00000008 
SS$S_ACCVIO = 0000000C UCB$Q-TL-BRKTHRU = 000000A8 
SS$_BADPARAM = 00000014 ~J06 = 00000000 
SS$_DEVREQERR = 00000334 UCBSV_ONLINE = 00000004 
SS$_HANGUP = 000002CC UCBSV_TT_HANGUP = 00000003 
SS$_ ILL TOPUNC = 000000F4 UCB$SW_CT-QCTPCNT = Q000000DE 
SS$_INCOMPA = 00000699 UCB$W_DEVBUF SIZ = 444 oe 
Ss$_ ~LTNKABORT = 000020E4 Uceeu DEvets = 0000006 
SS$~_ NORMAL = 00000001 UCBSW_REFC = 0000005C 
STARTRCV 00000665 R 03 UCB$W_RTT_READERR = Q00000DE 
TIMEOUT = 00000020 UCBSW_STS” = 00000064 
TRMS_LASTITM = QOOQ0000A UCBS$W_UNI = 00000054 
mm DR = 00000010 UNSOLTC_EXIT 0000067C R 03 
RMSIZE = 00000014 UNSOL_DATA 0000062C R 03 
rey HALF DUP = 00000014 VCB$L_AQB = 00000010 
TT$_ONKNOWN = 00000000 
TT2SM_DCL_MAILBX = 00000200 
TT2$V_BRDCSTMBX = 00000004 
TTYS$GC_DEF CHAR eererere x 0 
TTY$GL_ JOBCTLMB eeneeere§ KX 0 
TTYSGL_ Ic reereeee x 8s 
TTY$GW_DEF BUF eeneeere§ X 0 
TTY$GW" PROT teeerere = X 02 
uCB$B_BEVCLASS = 00000040 
UCB$B_DEVTYPE = 00000041 
UCBS$B_DIP = 0000005E 
UCBSB_F IPL = 000 4 
UCB$B_RTT_PROECO = 000000 
UCBSK_RTT_LEN = 000001 
UCBSK_ RTT"LENGTH = 9000) 
UCBSL_AMB™ = 00 
UCB$L_DDB = 00 8 
UCB$L_DEVCHAR = 000000 
UCBSL—DEVCHAR2 = 0000003C 
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! ; Psect synopsis ! 


oe eusssaunant 


PSECT name Allocation PSECT No. Attributes 

. BS « 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 00000000 -») O01 ¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

$$$105_PROLOGUE Open ORS ( 140.) 02 ¢ §-3 NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC BYTE 

$$$115"DRIVER OO0009BA ( 2442.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
Fee wm wae meme enema oa mame $ 
! ; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 32 00:00:00.05 00:00:01.45 

ponnend processing 138 00:00:00.48 BF 8 82 

s 1 801 OF 80:68. Be 00:01:30.56 

Synbol table sort 0 00:00:03.86 00:00:13.19 

Pas 351 88 60:00' 35 00:00:21.78 

Symbol table output 38 00:00:00.2 00:00:00.37 

Psect synopsis output 3 00:00:00.01 00:00:00.01 

Cross-reference output 0 Sb A BS 00:00:00.00 

Assembler run totals 1365 00:00:35.34 00:02:10.80 


The working set Limit was 2700 pages. 

211039 bytes (413 pages) of virtual memory were used to buffer the intermediate cod 

There were 190 pages of symbol table space an ecesee to hold 3595 non-local and 92 local symbols. 
2053 source Lines were read in Pass 1, dd object records in Pass 2. 

62 pages of virtual memory were used to define 59 macros. 
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Macro Library name Macros defined 
_$255$DUA28: pat eee nei 1 2 
“$255$DUA28:(CSYS.OBJJLIB.MLB; 1 39 
“$255$DUA28: eyai IBISTARLET MLB; 2 15 

TOTALS (all Libraries) 56 


3925 GETS were required to define 56 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RTTORIVER/OBJ=OBJ$:RTTDRIVER MSRC$:RTTDORIVER/UPDATE=(ENHS:RTTORIVER) +EXECML$/L1IB+SHRLIBS:REM/LIB 
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